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PPPPPPPP AAAAAA TTTTTTTTTT 88888888 LL DDDDDDDD : 
PPPPPPPP AAAAAA TTTTTTTTTT 88888868 LL DDDDDDDD e 
PP PP AA AA TT BB BB LL DD DD ; 
PP PP AA AA TT BB BB LL DD DD " 
PP PP AA AA TT 8B BB LL DD DD A 
PP PP AA AA TT BB LL OD DD Hy 
PPPPPPPP AA AA TT BBBBBBBB Lt DD DD : 
PPPPPPPP AA AA TT BBBBBBBB LL DD DD H 
PP AAAAAAAAAA TT BB BB LL D DD ; 
PP AAAAAAAAAA TT BB BB LL DD DD ; 
PP AA TT BB BB LL D DD eee é 
PP AA AA TT BB BB LL i) DD ees é 
PP AA AA TT BBBBBBBB LLLLLLLLLL DODDDDDD ecw ; 
PP AA AA TT BBBBBBBB LLLLLLLLLL DDDDDDDD ee ; 
LL IIIIII SSSSSSSS é 
LL IIIII] SSSSSSSS : 
LL I] ss 3 
LL Il SS : 
LL I] ss : 
LL II ss ; 
LL I] SSSSSS 3 
LL II S$SSSSS : 
LL II SS é 
LL I] SS : 
LL I] SS : 
LL I] ss ‘ 
LLLLLLLLLL IIIII1 SSSSSSSS : 
LLLLLLLLLL HII SSSSSSSS ; 
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MODULE PATSLD ( 


! 

L RIF XVARIANT EQL 1 
nate APDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
IDENT = 'V4=000' 


BEGIN 


‘ 


4 
LRA REAR AREA EERE EERE EEE REAR 
' 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


!® TRANSFERRED. 


THOUT NOTICE 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WI 
IGITAL EQUIPMENT 


0 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG 
: CORPORATION. 

af 
1 !* DIGITAL ASSUMES NO RESPONS 
: :* SOFTWARE ON EQUIPMENT WHIC 
1 
1 
1 
1 
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1 
1 
1 
1 
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BILITY FOR THE USE OR RELIABILITY OF ITS 
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i 0 : 
is OTHER PERSON, MO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

® 

® 

fe 
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* 

1B! « 
H IS NOT SUPPLIED BY DIGITAL. 
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3 ; FACILITY: PATCH 
i ! ABSTRACT: Initialize and build the Runtime Symbol Table (RST) data structures. 
003 i 
oes : ENVIRONMENT: This module runs on VAX under STARLET, user mode, non-AST level. | 
944 i Author: Kevin Pammett, August 12, 1977. 
004 : 
0044 ! 
Bee? Modified by: 
004 i v03-003 MCNO151 Maria del C. Nasr 13-Feb-1984 
snk Make changes to eliminate compiler informational messages. 
0050 1! v03-002 MTROOI2 Mike Rhodes ; 16-Aug-1982 
0051 : Modify file names to remove duplicate file name useage 
itt between code and require files. 
0054 1! v03-001 MTROO10 Mike Rhodes 09-Jul-1982 
Bobs Fix empty compund expressions to have a value of TRUE. 
0087 i v02-018 PCG0001 Peter George 02-F EB-1981 


ii pas 


C , 

16- Sep-19 4 00:59:44 VAX-11 Bliss-32_V4.0-742 2 PA 

14-Sep-1984 12:52:28 DISKSVMSMASTER:CPATCH.SRCIJPATBLD. B32. (1) voi 
: } Add require statement for LIB$:PATDEF.REQ : 
: 1! v0117 CNH H0023 Chris 16-Nov-1979 14:00 : 
: +3 Turn off ISD$V Lastceun tor all ISD's when PATCH Area is added ; 
; : to on mnate Also o unrecoenised Languages will now be processed ; 
1 CEPATCHIPATMAY .BS2" 02, 98. PATSPA.B32 01.05) 
; : MODIFICATIONS: : 
3 : NO DATE PROGRAMMER PURPOSE : 
: 1! 3 
3 1! 00 19-pEC-77 K.D. MORSE ADAPT VERSION 36 FOR PATCH ; 
; 1! 01 2=JAN-78 K.D. MORSE MINOR CHANGES IN : 
: 1! CASE THERE IS NO GST. : 
; 1! 02 4=JAN-78 K.D. MORSE FIX BUG THAT COMPUTES LENGTH : 
: 1! OF TYPED VARIABLE. : 
; 1! 03 4=JAN-78 K.D. MORSE PATSDST_VALUE NOW DIST TINGUI SHES : 
: 1? BETWEEN EVALUATE ERRORS. (37 ; 
: 1! IX BUG IN ADD_MODULE BY SETTING ; 
: 1! THE NT_IS_BOUNDED BIT ONCE THE 3 
: 1! SYMBOL~IS"BOUNDED. (38) : 
; 1! NO CHANGES FOR VERS 39. F 
; 1! 04 11-JAN-78 K.D. MORSE ADD CHECKS FOR BIT FIELDS IN : 
; 1! SECOND TYPE BYTE IN DST : 
; 1 i (DSTR_ACCO1 AND DSTR_ACC23). ; 
: 1! 05 24-JAN-78 K.D. MORSE NO CHANGES FOR 39-407 : 
; 1! 06 28-FEB-78 K.D. MORSE CHANGE BUILD_MC TO IGNORE THE : 
: :? REST OF THE BST IF >5O% OF TH : 
: 1! RST SPACE HAS BEEN TAKEN UP FOR : 
; 1! MC'S ONLY. (41) : 
; 1! 07 01-MAR-78 K.D. MORSE NO CHANGES FOR 42-43, PATCH : 
; 1 i WILL NOT ACCEPT CORTRAN ARRAYS : 
: 1! S INPUT AND SO SHOULD NOT ; 
: 1! OUTPUT THEM. ; 
3 1! 08  24-MAR-78 K.D. MORSE NO CHANGES FOR 44-45. : 
: 1! 09 28-MAR-78 K.D. MORSE ADD CODE TO ACCEPT ARRAYS AND ; 
: 1! PC'’ RELATIVE DESCRIPTORS. : 
3 1! 10 0O7-APR-78 K.D. MORSE REWORKED GLOBALS SO THAT THEY 3 
3 1! ARE NOW MAPPED INSTEAD OF IN : 
; 99 1! RST. (46) REMOVED CODE IN : 
: 100 1! ADD_SAT THAT CHECKED IF A : 
: 101 : 3 SYMBOL WAS PREVIOUSLY THERE (47). 3 
: 108 1! MC_GBL_LOCKED IS INITIALIZED (48). ; 
: 10 1! CHANGES FOR VERS 49 3 
> 104 1 ' 11 25-APR-78 K.D. MORSE CONVERT TO NATIVE COMPILER. : 
: 105 1! #12 12-MAY-78 K.D. MORSE NO CHANGES FOR 50. 3 
: 106 1! INIT_MC_GLOBALS NOW SETS THE ; 
: 107 1! MC_IN_RST BIT TO FALSE FOR THE 3 
: 108 1! SPECIAL GLOBAL MC. THIS IS : 
: 109 1! NECESSARY BECAUSE THE SAT/LVT : 
>: 110 1! ACCESS FUNCTIONS MAY LOOK THERE 3 
; 90% 1! BUT THERE ARE NO STORAGE ; 
: 11¢ 1! DESCRIPTORS. (51) 3 
: 11 1! 13 18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 53- : 
: (114 1! 14 18-MAY-78 K.D. MORSE NO CHANGES FOR VERS 53. : 
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PATBLD son 190% 90:33:38 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 -Sep-1984 12:52:28 DISKSVMSMASTER: CPATCH.SRCJPATBLD.B32;1 (2 
' 


TABLE OF CONTENTS: 


4 
y 


| 
| 
| 
| 


FORWARD ae 


UTINE 
ATSINIT_RST : NOVALUE, Do the RST initialization. 
INIT BAC GLOBALS : NOVALUE, Initialize the MC chain. 
BUILD-RST, Initialize the RST so that it 


contains a given set of modules. 
Check, initialize, and set up to ADD_MODUL 
Add a module to the RST. 
Add a DST symbol to the RST. 
Make a SAT entry for a symbol. 
Make an LVT entry for a symbol. 
Calculate the bounds of an array. 


| 
| 
Build the Module Chain (MC), | 
| 


OK_TO_ADD, 
PATSADD_MODULE, 
LNT 
ADD-SAT, 
ADD-LVT, 
PATSGET_BOUNDS : NOVALUE; 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY: 


Aces 
REQUIRE ‘SRC$:PATPCT.RE 


Define PATCH PSECTS 
lit 


! 
' Defines erals 


Oe ce ee ee ee ee ee ee ed ed ed ed ee 
WT BB EE BEE BWW nonenononorp 


NM OODNAOVEWN “OO DNOULSWNOVDONOUS 
ee epee iw ioloalealealelelelelelelelelelelealelolalalelo) 
SINS BR 8 ot ot I I a ot ot tt 
OS N WOO EES FS EWI wnonoronornonor 
DOWD OMNES WN O OONAYL EWN -OOONAOULEW 
at ak tk at at ss a ts a ts Ss SS SY YS YY 


REQUIRE *SRC$:SYSSER.REQ': 


| 
| 
REQUIRE ‘SRC$:PATRTS.REQ'; 
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YSSER.REQ;1 


Nw 


SWITCHES LIST (SOURCE); 
EXTERNAL yt hag 
PAT 


See el oe ee 
DOoOormw 
Ncrneg) 
@000000000 
Sag aah ae ee 
@eaeaaca 

*@eerere*® 


! formats a Line and outputs to the terminal 


fao_out; 


-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Pa 
pryabe $3:83:58 | NAKSUMCMASTERSCEATON CACIPATBLD.B3204°" (2 


i MACROS: 


EQUATED SYMBOLS: 


AACOUIMUIVT 
WN —"OODONOULW 


EXTERNAL REFERENCES: 


| 
| 
EXTERNAL 
Indicator if symbols are in the image 
Starting address of 
Pointer to the Module Chain (MC) 


- EGN, 
PATSGL_MC_PTR : REF MC_RECORD ‘ 
Pointer to the name table (NT) hash vector 


PATS$GL_NT_HASH : REF RST_POINTER; 


EXTERNAL ROUTINE 
PATSF IND_MODULE, 
PATSSORT SA_LVT : NOVALUE, 
PATSVS_IRNIT™~: NOVALUE, 
PATS$VS_GET, 


PATSVS_FREE : NOVALUE, 
PATSVS_ SHRINK : NOVALUE, 
PATSMODULE_SIZE, 


PATSDST_VALUE, 
PATSSYMBOL VALU, 
PATSNT_HASRA_FCN, 


PATSPOSITON_DST, 


PATSGET_NXT_DST, 
PATSGET_NXT~GST. 


PATSGET_NXT_SAT, 
PATSGET-NXT-LVT, 


ee 
! We use two storage allocators - one when we want to allocate or 

' free up storage we want to address via RST-pointers, and one when 
! we deal with free storage in the same way that the rest 
of PATCH does. 


Scans module chanin for a module name | 

Sort the SAT or LVT 

Initialize a vector storage area. 

Allocate records from a so-called | 
vector storage’’ vector. 

Release vector storage. 

Free up unused vector storage. 

Deduce how much RST space adding 

a module will take. 
Evaluate a DST , 

Evaluate a symbol given its NT_PTR. | 

Hashing function for calculating 

| 

} 

| 

| 

| 

| 


WN "OC OOBNOUSWN—OVOONGOuU 
SOOSSCSCOOOCO 00000000000 09000 0000000000 


FAN 0 OONO VE WIN O ODNAUE WIN OOD NA NE WIN 9 ODNAU EWN ($C OONAUE WI OOo 


dispersal of NT entries. 
Make a certain DST record available 

and ‘'SRC$:position’® the DST for GET_NXT_ 
Make the next DST record available. 
Make the next GST record available. 


oon 


Sequential access to the SAT. 
Sequential access to the LVT. 


MPWN— 


WDOOOOOOOOOO0O00000 0000 OOO 00 00 09 09 00 09 09 09 09:09 09 09 09 09 09 09 C9 CD COCO CD 


MOND 


PDI DI a nt an a a ss ss ss ss as as 4s Ls 9 Ln 1s as Ls — 9 — 9 — 9 4» 9 2s 4 4 4 ss 4 
oo 


SSSSSSess 


PATSFREEZ ' Allocate and zero a block of ordinary stor 

PATSRST_FREEZ ! Allocate and zero RST-pointer storage. 

PATSREPORT_FREE; ! Report on remaining available RST storage. 
4 


OWN STORAGE: 


a tb 9 ss 4 a a tn bn — a — — >) a a bs as — — 4 5s — — 4 4 hs 4s 4 3s 2 4 4 
ee ek a et et a tt = 9 9 = = = So = 2s 2 8 2 — 2s Ws ss 4) Ss 
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; 210 1935 1 !e4 

; 2ii 13 § 1 ! We maintain a pointer to the MC record for the module we are currently 

3 \¢ 19 1: (dedallocating vector storage for. This is done simply to avoid passing this 
s 21 19 8 1 ! parameter around. 

: 214 19 1 !e- 

Oe a)! 1940 1 

: 1g 1941 1 OWN 

; 1942 1 CURRENT_MODULE : REF MC_RECORD; 


4 
be ~1984 59:44 VAX-11 Bliss-32 V4.0-742 Page 
4 Sep 1382 90:33:58 DISKSVMSMASTER:CPATCH.SRCIPATBLD.B32: 1° 
GLOBAL ROUTINE PATSINIT_RST : NOVALUE = 


lee 


! FUNCTIONAL DESCRIPTION: 


Do the enery initialization of PATCH's 
Runtime Symbol Table (RST) data structures. 


i FORMAL PARAMETERS: 


none 


IINAIWAIPPoPononononoennn 


WN "OO OONOuUSWwN—O”D 


| 
| 
| 
i IMPLICIT INPUTS: 
In general, we expect that error reporting is done at 
the innermost level. This means that we sinply 
verre bad status codes all the way out, without saying 
anything. 


1 

1 

' 

1 

1 

i] 

' 

! 

i] 

i] 

i] 

1 

i 

' 

IMPLICIT OUTPUTS: 
none 
COMPLETION CODES: 
i] 
' 
i] 
t 
' 
1 
1 
1 
' 
1 
1 
1 
' 
i] 
i] 
' 


have enough storage for the NT hash vector and 

a l-element MC chain. If there is really 

not enough for this, PATCH is surely in trouble. 
The storage manager doesn't return control to us 
in any case... 


i SIDE EFFECTS: 
The RST gets initialized. 


CD09 C9 G9 SINS SSS SNS DIO AA AAA IIIT BE 
DOONAN E WIN OS OD NAME WN 9 OONAUE WN OOODNAYV EWN" OOONOUE Ww 


AOAOUMMIVMNMIVIVIVIVIVIE BEERS EE PW 
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8 

8 BEGIN 
6 LOCAL 

8 LIST_ALL, 

8 PTR : REF VECTORC BYTE); 

990 

991 !oe 

336 : Before we can do much we must have the NT hash vector. It is a fixed size and 
$8 3 § gets allocated once-and-for-all. | 
4 p44) PATSGL_NT_HASH = PATSFREEZ( RST_UNITS(NT_HASH_SIZE * %SIZE(NT_HASH_RECORD))); | 
& 399 !+¢ 
74 998 ! Add the global syabol definitions to the RST structures, and start off the 
75 999 ! module chain with the ‘fake’ MC record reserved for globals. This code assumes | 
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7 ! that PATSGET_NXT_GST has already been set up so that the first time we call 

7 ! it the first GST record is returned. Begin adding MC's to the chain in a 

ae forward-Linked fashion. 

80 INIT_MC_GLOBALS(); 

81 

S¢ lee 

8 ! Build the Module Chain, giving up if it doesn't work. Note that this routine 
Se ! only works when the ‘next’ record, as defined by PATSGET_NXT_DST, is the first 


i] 
' record in the DST. If we rept yy wanted to do some manipulating of the DST 
! before building the module chain, we would have to invent a fake REWIND_DST or 
’ something or pass BUILD_MC the {0 of where to start. This would mean 

i that BuICb 

just calling ‘next’ for them a 


if (NOT BUILD_MC()) 
RETURN; 


MC would have to “bepetatoesee” the first record instead of 


ROLSSSUS 


oo 
ws 


| 
e¢ 
! Build an RST that contains those modules flagged as eligible in the module 
' chain. We also pass on the estimate of the number of globals that the RST 
| 
| 
| 


! will contain. 


if (NOT BUILD_RST()) 
RETURN; 


SSeLE 


ooo 
wr 


lee 
ort the SAT and LVT vectors so that we can access them (later) more efficiently. 


PATS$SORT_SA_LVT( PATSGET_NXT_SAT ); 
PATSSORT~SA_LVT( PATSGET-NXT-LVT ); 


END; 


AF 
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-TITLE PATBLD 
IDENT \V04-000\ 


.PSECT _PATSOWN,NOEXE,2 


00000 CURRENT_MODULE: 
-BLKB 4 


-EXTRN PATSFAO_OUT, PATSGB_SYMBOLS 
TEXTRN PATSGL_RST_BEG 

-EXTRN PATSGL-MC_PTR, PATSGL_NT_HASH 
-EXTRN PATSFIRD_AODULE 

-EXTRN PATS$SORT-SA_LVT 

-EXTRN PATSVS_INIT; PATSVS_GET 
-EXTRN PATSVS"FREE, PATSVS_SHRINK 


12E 
: PATSSYMBOL VALU 


TEXTRN PATSPOSITON-DST 
“EXTRN PATS$GET_NXT~DST 


K 4 
PATBLD 16-Sep-1984 00:59:44 VAK=11 BLiss- =32 V4.0-742 10 
v04~000 aoe 1 90:25:58 DISKSVMSMASTER: CPATCH. SRCJPATBLD. B32. 7%* (3) 
.EXTRN PATSGET_NXT_GST 
“EXTRN PATSGET-NXT_SAT 
“EXTRN PATSGET NXT“LVT 
VEXTRN PATSFREEZ, PATSRST_FREEZ 
“EXTRN PATSREPORT_ 


FREE ~ | 
-PSECT _PATSCODE,NOWRT,2 | 


0004 00000 .ENTRY PATSINIT RST Save R2 5 1943 
52 000000006 ef 9E 9008 OVAB PATS$SORT“SA_LVT, R2 : 
7E 80 8F 9A 0000 MOVZBL #128 Rigby + 1995 
9900000 G EF o1 FB 9000 CALLS #1, PATSFREEZ : 
00000006 EF 0 D 14 OVL RO; PATSGL_NT_HASH : 
00000000V EF 00 FB 0001 CALLS #0. INIT_MC_GCOBALS + 2004 
V ALLS #0. BUIL : 201 
00000000 FF i 00 CALLS #0 ILB_mt 2015 
00000000v EF 00 FB 000 ; CALLS #0, BUILD_RST + 2024 
12 0 €9 000 BLBC R ; 
000000006 FF 9F 00036 USHAB PATSGET NXT_SAT + 2031 
62 1 FB 0003C CALLS PATSSORT SA_LVT : 
000000006 EF 9F 0003F PUSHAB patseet > 2032 
62 01 FB 00045 CALLS #1, PATSSORT. SA_LVT ; 
04 00048 1$: R + 2034 


; Routine Size: 73 bytes, Routine Base: _PATSCODE + 0000 


4 
$ep-1984 2:59:44 VAX-11 Bliss-32 V4.0-742 Pa 
0pm aRe 99:85:38 | WdinGhaSfeacchAton. Saczparerp.e3204°* 


ROUTINE INIT_MC_GLOBALS : NOVALUE = 


lee 
' Functional Description: 


This rout ine initializes the module chain. It builds the dummy 
entry which is always the first Link in the module chain. ALL 
the global symbols are Linked to the dummy module. This routine 
does Fher pert of RST initialization which MUST 

work if PATCH is to survive. 


Formal Parameters: 
NONE | 
Implicit Inputs: 
none. 
Routine Value: 
NONE 
Side Effects: 
PATSGL_MC_PTR gets initialized. 


BEGIN 


lee 

: Build the single MC record which must always exist. This one does NOT 

! correspond to a module, but rather we use it to ‘hang’ the globals off. The 
! building of this record must go OK - the storage manager doesn't give us 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
back control. 
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PATSGL_MC_PTR = PATSRST_FREEZ(RST_UNITS(RST_MC_SIZE)); 


lee 
! Initialize the few fields which this special MC record mus 


1A. AANA AAA AAA AIAIANNI WWW 


t have. We assume 
! the rest of the record is 0. The global MC is never marked 'MC_IN_RST' 


: because globals are not really in® the RST. 


PATSGL_MC_PTR mC_1S_GLOBAL] = TRUE; 
PATSGL-MC~PTR CMC"IN-RST) = FALSE; 
PATSGL-MC~PTR CMC"TYPE) = DSCSK_DTYPE_MOD; 


‘ee 

! Permanently allocate the storage which ‘hangs’ off this MC entry. Since 

!' the globals now remain in their own data base (the GST), the RST needs only 
i one AT and one SAT record for ‘cache’ use - i.e., we fill them when we 
bring a GST entry into the RST for SYM_TO_VAL, etc. 


PATSGL_MC_PTRCMC_GBL_NT_PTR] = PATSRST_FREEZ(RST_UNITS(RST_NT 
PATSGL-MC~PTREMC~GBL~SAT_PTR] = PATSFREEZ(RST_UNTTS(RST_SAT_ST 
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PATBLD 16-Sep-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Page 12 
v04~000 13788-1382 90:23 28 DISKSVMSMASTER CPATCH. SRCIPATBLD.B32:1> (4) 
; 369 O38 '++ 
: 370 83 ! Sometimes we do not want the GST consulted in a SYM_TO_VAL, and some 
: 71 94 ! times we have consulted it and do not want some other Call to overwrite the 
3 Lf: 095 ' two cache GBL/RST records. for this reason, the following field is turned 
; if, 4 on and off to indicate if the GST is ‘locked’ or not. 
: 375 098 
; 376 099 
: 377 100 H 


003C 00000 INIT_MC_GLOBALS: 
»WOR 


D R2,R3,R4, 3 
55 000000006 EF 9E 00002 MOVAB PATS$RST_FREEZ, R5 ; 
54 000000006 EF 9E 00009 MOVAB PAT$GL_RST_BEGN, R4 : 
53 000000006 FF 9E 00010 MOVAB PATS$GL“MC_PTR, R3 : 
F DD 00017 PUSHL #15 : 2072 
65 gi FB 00019 CALLS #1, PATSRST_FREEZ ; 
63 0 D b901¢ VL_ RO, PATS$GL_AC_PT : 
52 63 64 C1 OOOIF ADDL3 PATSGL_RSTIBEGN, PATSGL_MC_PTR, R2 ; 2079 
03 A2 01 88 00023 BISB2 #1, 3(R2) : 
03 Ag 02 8A 00027 BICB2 #2, 3(R2) : 2080 
02 A BC BF «(90 000¢8 OVB #-68, 2(R2) : 2081 
0B DD 00030 PUSHL #11 ; 2089 
65 01 FB 00032 CALLS #1, PATSRST_FREEZ ; 
04 A2 50 BO 00035 MOVW = R R2) : 
52 63 64 C1 00039 ADDL3 PATSGL_RST_BEGN, PATSGL_MC_PTR, R2 ; 2090 
03 DD 9005p PUSHL ; 
000000006 EF 01 FB 0003F CALLS #1, PATSFREEZ ; 
35 Ae 50 00 00046 MOVL (R2) ; 
50 6 64 C1 O004A ADDL3 PATSGL RST_BEGN, PATSGL_MC_PTR, RO ; 2098 
03 AO 04 8A OO04E BICB2 #4, 3(RO) ; 
04 0005 RET : 2100 


; Routine Size: 83 bytes, Routine Base: _PATSCODE + 0049 
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| 
PATSGL_MC_PTRCMC_GBL_LOCKED] = FALSE; 
RETURN; 
} 
| 
| 
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1278671382 3 35:36 DISKSVMSMASTER CPATCH.SRCIPATBLD.B32:1— 3) 
; 379 101 1 ROUTINE BUILD_MC = ; 
; 380 1 ¢ 1 3 
3 38) 1 1 S++ ; 
; . 1S ! ; FUNCTIONAL DESCRIPTION: | ; 
3; «384 186 1! This routine builds the Module Chain (MC) directly from the DST. $ 
; 52 44 ! } This is part of a once-only PATCH initialization procedure. , 
3 387 109 1! If there is no DST (because none of the module : 
; 388 110 1! were compiled with /debug eymoots on), then this ; 
; 389 1) 7 f routine simply returns(true) when the first attempt | . 
3 ra 3118 ! it makes to fetch a OST record returns EOF. : 
3; 114 1 ! FORMAL PARAMETERS: ; 
3; 39 ve 95 3 
3 394 1146 1! none : 
; 395 117 1! $ 
; 396 118 1 ! IMPLICIT INPUTS: H 
; 397 119 1! | : 
; 398 120 1! -It is assumed that the first call to PATSGET_NXT_DST 3 
; 399 sis] 1! that we make will retreive us the first record 3 
; 400 1 ie in the DST. : 
; 401 21 1! ; 
; 40 2124 1! “The free-storage manager zeros-out the storage returned. | ; 
; 40 2125 1! (Wwe therefore don't bother to zero-out | : 
3 the $158 ! Link fields, etc, in newly-obtained MC records). | : 
; 406 2128 1! “We assume that PATSGL_MC_PTR has already been set to 3 
3 rt $1§8 ' point to the ‘dummy’ global MC record. | : 
3; 409 2131 1 =! IMPLICIT OUTPUTS: s 
: 410 $138 1! 3 
: th $i3z ' : The MC is built - it contains a host of implications. : 
3 418 2135 1 ! ROUTINE VALUE: : 
: 414 2136 1! F 
s 615 $16 1! NONE H 
3 416 138 1! 3 
3; 417 2139 1 ! COMPLETION CODES: 3 
; 418 siey 1! 3 
3; 419 141 1! TRUE, if all goes OK, 3 
; 420 $128 1! FALSE, otherwise. 3 
; 421 143 1! 3 
3; 4 § site 1 ! SIDE EFFECTS: 3 
3; 4 145 1! é 
: 424 rg &. -The MC_ is built. 3 : 
; 425 147 1! -The DST is ‘read’ straight through to the end unless going any further : 
3 $38 148 1! would take too much of the RST just for MC's. In this case, the last : 
3 ? it 4 ! } part of the DST is henceforth ignored by PATCH. : 
3 499 151 1 !e- 3 
: 430 13 1 3 
3; 6431 15 BEGIN | 3 
3 rt 154 : 
3; 43 155 LOCAL : 
; 434 136 SAT_COUNT : VOLATILE, ' Count up per-module SAT entries, 3 
3; 435 15 LVT_COUNT : VOLATILE, ! Count up per-module LVT entries, 3 


5 
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sets y 99:33:38 DISKSVMSMASTER: CPATCH.SRCJPATBLD.B32; 1 7? (5) | v4 
; 436 158 NT_COUNT : VOLATILE, ! Count a” _ perwseeyes NT entries, ‘ 
; 437 159 IN-MODULE, i Fla ether we are 4. Desa! : 
; 438 160 i MOBUL te BE IN = MODULE ss pete : 
; 439 161 DST_REC i Record ID passed back By PA $GET. NXT_DST. : 
: 440 16¢ CURRENT" : ker MC_RECORD, i Pointer to the MC record we are | : 
> 441 16 i currently initializing. “ 
; 44 164 DST_RECRD : REF DST_RECORD; i Pointer to the current record ‘ 
; 44 165 i of the DST we are reading. ‘ 
> 446 166 : 
: 445 167 14+ : 
; 446 168 i Leche) fs | the context flag IN_MODULE, and begin goin thru the DST | ; 
> 447 19? i sequentially. We assume that someone else namely. PATCH's INIT routine, has : 
; 448 170 i made sure that the DST is evel iapie and d that the 'next* record is the first : 
; 449 2171 ; one. The chain starts off with the ‘fake’ global MC record. Other MC’s are :] 
; 450 217¢ 2 | added in forward-Linked fashion. | i] 
: 43 giz CURRENT = T= :PATSGL_MC_PTR: | : 1 
; 436 2176 $n uiTLEC (ST _RECRD = PATSGET_NXT_DST( DST_REC_ID )) NEQ 0 ) ; } 
: 456 5178 ic BEGIN | 24 
: 457 2179 1 
: rt 4 sigs ; iP “Process each record depending on its DST type. | : 
; 460 o18¢ 3 CASE .DST_RECRD CDSTR_TYPE] FROM DST_DST_LOWEST TO DST_DST_HIGHEST OF : 
; 46 2184 ; SET : 3 1 
; 46 2185 d : 1 
> 464 2186 3 CDSC$K_DTYPE_MOD): ! Module Begin Record. : 1 
> 465 2187 4 BEGIN 7] 
: 466 2188 4 LOCAL 2] 
; 467 2189 4 MOD_NAME DESC BLOCKS BYTE). 3 1 
> 468 2190 4 NEW PTR : REF Mc. RECORD; 2] 
: 469 2191 5 IF (. IN_MODOLE) ' Check for misplaced MODULE record. : 1 
3 470 $136 4 THEN 3] 
3: 471 2193 5 BEGIN 3:1 
: 472 2194 5 $FAO_TT_OUT( “nodule Begin Phase Error." ); : 1 
3 473 2195 5 RETURN (FALSE) | : | 
3 474 2196 4 END; s 1 
; 475 2197 4&4 3 | 
3; 476 2198 4 +4 : | 
3 477 199 4 i Now check to see if this module is already in the chain. 3) 
: 478 300 ‘ il If found, skip until the next EOM record. : 
; 480 202 4 HOD _NAME SH re LENGTH) = .DST ~RECRD pete NAME]; -s 
: 481 203 4 MOD~ NAME DSCSA_POINTER) = DST_REC Rone “+1; 2 
: 482 204 5 i TPATSFIND MODULE TMOD_NAME_DESC, FAL | 2 
; 483 205 4 3} 
; 484 $08 5 BEGIN 3 | 
: 485 P 2207 5 $FAO_TT Sure” 5 Rube ‘cate module !AD A nS us 3] 
: 486 208 5 DESCCDSCS$W_LENGTHJ, .MOD_NAME_DESCCDSCSA_POINTER)); 2 
: 487 209 5 DO : 
; 4488 210 5 DST_RECRD = hte i NXT_DST(DST a 
: ret \ 2 UNTTL -DST_RECRDCOSTR_TYPE] EQL “BSESK. DOTYPE _EOM; 3 | 
; (491 18 4 ELSE 3 | 
3; 492 14 «5 BEGIN : 


>> MCL senna GIN MER Gua ae BS ek te eases ee 


PATBLD ibese -1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Page 5 
v04-000 1a-sep-19 4 90:23:38 DISKSVMSMASTER: CPATCH. SRCIPATBLD.B32:1> (3 v04 
493 144 
494 : See if taking the RST space for this new MC record still 
495 ' Leaves a reasonable amount for subsequent ‘SET MODULE 
496 ' commands, (i.e., 50% of the RST). If this is not the case, 
130 then ignore the rest of the modules and exit from this Loop. 
499 
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if NOT PATSREPORT_FREE() GTR RST_MODU_SIZE 
BEGIN 


le 
' Report informational message. This routine must 
' do a normal return and not an UNWIND. 


SIGNAL (PATS_LONGDST); 
EXITLOOP; 


oo°oo 
Wwr—o 


e4 
Allocate space for the new MC record. 


TF C(NEW_PTR = PATSRST_FREEZ(RST_UNITS(RST_MC_SIZE))) EQL 0) 


RETURN(FALSE); 
CURRENT CMC_NEXT] = .NEW_PTR; ! Link this one onto the previous one. | 


'e¢ 
! Initialize the new ‘current’ node, and those fields belonging 
' to it that we know the value of at this point. (Some values 

' get initialized only after we have read the DST for this 

! module). 
IN_MODULE 
CURRENT = 


TYPE); 


R 
D? 


CURRENT CMC 
CURRENT CMC~ 
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'e+ 

' Encode the Lanquese indicator into 3 bits. This only 

' accomodates values 0-7, enough for now. We may have to 
enlarge this field later. 


CURRENT CMC_LANGUAGE] = .DST_RECRD CDSTR_VALUE); 


'e¢ 

! If we want all modules to be IN the RST by default, set the 
! following to TRUE. Otherwise set it to FALSE, and make the 
' decision as to whether or not we want a module after its 

' DST has been read. (See DSCSK_DTYPE_EOM, below). 


CURRENT CMC_IN_RST] = FALSE; 


lee 
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00 14-Sep-1984 99: 2:28 DISKSVMSMASTER:CPATCH.SRCIPATBLD.B32:1> (5) 

; 550 § ! Moving the name could cause problems if we change the data : 
: 1 ' representation. Note that here we move both the name-size ; 
; é ¢ : count as well as the name itself. : 
; 554 6 CHSMOVE( .DST_RECRD CDSTR_NAME] + 1, 3 
; 555 7 DST_RECRD CDSTR want} : 
; 556 8 CURRENT CMC_NAME_CS)); : 
; | ar 9 4 : s 
3; 338 0 END; 5 
; SoD 1 3 
3 re ag ? COSCSK prvPE COR): ' Module End Record. : 
3 see ; Bi 5 IF (NOT .IN_MODULE) ! Check for misplaced END_MODULE record. : 
; 56 85 4 THEN 3 
; 564 $ses 5 3 
; 565 87 5 $FAO_TT_OUT( *!/Module End Phase Error.’ ); ; 
: 566 288 5 RETURN(FALSE); : 
; 567 289 4 END; F 
: 568 290 4 3 
: 569 2291 4 144 3 
; 570 $536 4 ! Reset the ‘in MODULE’ context flag, and initialize the : 
; 571 2293 4 ! settings of all MC flag bits. ‘ 
s Sire 2294 4&4 leo | : 
: 5735 2295 4&4 IN_MODULE = FALSE; 3 
s $76 2296 4 3 
; 575 $530 4 ++ ee ; 
3s 376 2298 4 ' Record the module statistics. F 
s S77 299 4 leo 3 
s $78 300 4 CURRENT CMC_STATICS] = .SAT_COUNT; ; 
: 579 301 4 CURRENT CMC“LITERALS) = .LVT COUNT; | ; 
; 580 2302 4 CURRENT CMC[NAMES] = .NT_COUNT; ; 
3 38) 2305 3 END; ; 
; 582 2304 3 3 
; 583 2305 3 CDSC$K_DTYPE_RTN ! Routine DSTs. | : 
; 584 2306 3 DSC$K~DTYPE~SLB): i Labels in FORTRAN and BLISS. ; 
s +44 2307 4 BEGIN : 
ee 2308 4 ++ ; 
; 587 2309 4 ' Just tally up the needed statistics so that we can build 3 
; 588 2310 4 ! the other data structures Later. 3 
: 589 2311 4 leo : 
; 590 $3i§ 4 NT_COUNT = .NT_COUNT +1; $ 
; 591 2313 4 SAT_COUNT = .SAT_COUNT #1; F 
3 238 2314 3 END; | 5 
BG , : 
: 59% 16 CDSC$K_DTYPE_EOR ! BLISS-only End-of-Routine. ; 
; 595 3317 DSCSK“DTYPE-FLD): | BLISS-only FIELD records. ; 
; 299 $13 3 ! We can safely ignore these for now. : 
; 598 $336 COSCS$K_DTYPE_LBLI: ! Label or Literal DSTs. (MARS only) 3 
; 599 321 4 BEGIN 3 
; 600 ; ; 4 '++ : ; 
: oO $57 2 This contributes 1 to NT, and another one to either LVT or SAT. 3 
; $08 5 4 NT_COUNT = NT COUNT +1; ; 
: 604 4 3 LF (DST RECRD DSTR_ACCO1) EQL ACCS_VALUEADR) : 
; 606 328 4 SAT_COUNT = .SAT_COUNT + 1 !' The symbol is an ADDRESS. 3 


ee Se, oe ee ee + Re pa eae 
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04-000 14-Sep “19 Be 93: 33:48 DISKSVMSMAST TER: CPATCH. SRCJPATBLD.B32; 1° (5) | 
607 ELSE 
OS c (-DSTRECRO COSTR_ACCO1) EQL ACCS_LITERAL) 
END LVT_COUNT = .LVT_COUNT +1; ! The symbol is a LITERAL. 
CDOSCSK_DTYPE_PCTI: ! PSECT DSTs. 


IF (NOT. IN_MODULE ) 
THEN 


sin 
$FAO_TT 1} habeas PSECT.'); 
RETURNCFALS 


| 
| 
| 
| 
| 
END; 
NT_COUNT = .NT_COUN +1; ! PSECTs also count as a symbol name. 
SAT. COUNT = .SAT OLOUNT +1; | 


CINRANGE, OUTRANGE): 
BEGIN 


lee 

i The only reason for not making the ‘'SRM types'’ 
' part of the above CASE is because of the huge 
ic case table which gets generated otherwise. 


iF. -DST_RECRD COSTR_TYPE] EQL DSC$K_DTYPE_2Z) 
BEGIN 


e+ 
i BLISS type ZERO records. Whatever symbol this is, 


MAMI WANNA WAIN 
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637 i it contributes a name, for sure, and either a Literal 
oss i or a static. We assume the worst! 
640 NT yc -NT_COUNT +1; 

641 LVT_C =. LUT COUNT +1; 

642 SAT_ ~ COUNT -SAT_COUNT +1; 

643 END™ 

644 ELSE 
645 IF (.DST_RECRD COSTR_TYPE] LEQ DST_TYP_HIGHEST) 
646 THEN | 
647 BEGIN 

648 7 

ret Wt "Theat types are candidates for the LVT and NT tables only. 
651 7 NT_COUNT = .NT_COUNT +1; 
636 7 SAT_COUNT = .SAT_COUNT 41; 
65 7 END 
654 7 ELSE 
655 7 BEGIN 
656 7 'e¢ , 

657 7 ! Probably an error in the DST data. 

658 8 len 
659 : TRUE; 
660 END; 

661 8 END; 

666 ; TES; 

66 


END; ! Go back and process the next DST record. | 
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14-Sep- 38 99:23:38 DISKSVMSMASTER:CPATCH. SRCJPATBLD.B32: 1" (5) 
> 664 § '++ 
; 665 ! Make sure we didn't run off the end of the DST unexpectedly. This means that 
3 606 5 we insist that EOM be the Last record encountered. 
; 668 90 IF (.IN_MODULE) 
; 669 91 THEN 
; 670 9 BEGIN 
; 671 9 $FAO_TT_OUT('Premature End-of-DST Encountered.’ ); 
; 67 94 RETURN(FALSE); 
; 67 95 END; 
; 674 38 
; 675 9 RETURN( TRUE ); ! The chain nas been built OK. 
; 676 9 END; 
; INFO#212 L1:2194 | 
; Null prereceres appears in Peyerrenres context 
: INFO#21 L1:2287 
; Null expression appears in Esse teenens context 
NULL ex i te 1 ired context | 
: Null expression appears in e-required contex 
mum, ioe 
; Null expression appears in value-required context 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 
19 00000 P.AAA: .BYTE 25 : | 
68 50 20 6€ 69 67 65 42 20 65 6C 75 64 6F 4D 00001 ASCII \Module Begin Phase Error.\ : 
2— 72 6F 72 72 45 20 65 73 61 00010 : 
1D OO01A P.AAB: .BYTE 29 ; 
6C 75 64 6F 6D 20 65 74 61 63 69 6C 70 75 44 00018 ASCII \Duplicate module !AD ignored.\ : 
2E 64 65 72 6F 6E 67 69 20 44 41 21 20 65 it 3 
19 00038 P.AAC: .BYTE 25 : 
68 50 20 64 6E€ 45 20 65 6C 75 64 6F 4D f 21 00039 ASCII \!/Module End Phase Error.\ 3 
2— 72 6F 72 72 45 20 65 73 61 00048 3 | 
12 4 $04 P.AAD: .BYTE 18 3 
45 53 50 20 64 65 63 61 6C 70 73 69 4D ef 21 9005 ASCII \!/Misplaced PSECT.\ 3 
2— 54 43 49 ¢4 : 
¢ boos P.AAE: .BYTE 33 : 
6F 2D 64 6€ 45 20 65 72 75 74 61 6D 65 72 50 8 066 -ASCII \Premature End-of-DST Encountered. \ : 
72 65 74 6€ 75 6F 63 6E€ 45 20 54 53 44 2D 66 00075 : 
2—E 64 65 00084 3 
-PSECT _PATSCODE,NOWRT,2 
OFFC 00000 BUILD_MC: | 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 2101 | 
EF MOVAB PATSGET_NXT_DST, R14 ; 
EF MOVAB PATSGL_RST_BEGN, R10 : 
ce MOV R9 3 
8 SUBL2 #24, SP : | 
F MOVL PATS$GL_MC_PTR, CURRENT i 2174 | 
8 CLRL IN_MODOLE : 2175 
E PUSHL : 2176) 
01 CALLS #1, PATSGET_NXT_DST : 


| 
| 
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Routine Base: 


- 
as 
io) 
o 
So 
So 
So 
So 
S 
So 
o 


375 bytes, 


; Routine Size: 


; 678 399 
; 679 400 
; 680 401 
; 681 4 § 
; 68 4 

; 68 404 
3; 684 405 
; 685 ote 
; 686 40 
; 687 408 
; 688 409 
; 689 410 
; 690 411 
; 691 tig 
; 69 4) 
; 69 414 
; 694 415 
; 695 aig 
; 696 41 
3; 697 418 
; 698 419 
; 699 420 
; 700 421 
: 701 24 ¢ 
: 702 4 

; 703 424 
: 704 425 
; 705 $58 
; 706 427 
: 707 $e 8 
; 708 429 
: 709 2430 
; 710 2431 
: 711 RL 
; 712 43 
3; 713 2434 
: 716 2435 
3; 715 2436 
3; 716 seat 
3; 717 $¢ 8 
: 718 439 
s 719 440 
: 720 441 
3 as! 44 
ae § 44 
s 72 444 
: 726 445 
3: 725 re 
3; 726 44 
s 27 44 
: 988 450 
3 $3 451 
; 731 ra 
ee § 45 
. 2 454 
: 734 455 


5 

1b-sep-19 4 9:44 VAX-11 Bliss-32 V4.0-742 Page 21. 

12286-1382 99 33 28 DISKSVMSMASTER: PATCH. SRCJPATBLD.B32:1> (3) 
ROUTINE BUILD_RST = 
'e¢ 
FUNCTIONAL DESCRIPTION: 
Initialize the RST given a module chain. | 
i FORMAL PARAMETERS: | 
none. | 
{ IMPLICIT INPUTS: | 
; PATSGL_MC_PTR is assumed to RST-point (in the sense | 
; that an est=ee inter points) to the beginning 
; of the MC. This MC is assumed to contain 
: all necessary information about those 
modules marked elegible to be in the RST. 
; IMPLICIT OUTPUTS: | 
! There will be at least RST_AVAIL_SIZE bytes of 
free storage left after this routine finishes. | 
ROUTINE VALUE: | 
none | 
i COMPLETION CODES: | 
: TRUE, if all went OK, FALSE otherwise. | 
i SIDE EFFECTS: | 
! A warning mecnoge is produced if any of the 
: modules marked MC_IN_RST are not added to 
: the RST. This happens when we don't have 
enough space. 
lee 
BEGIN 
LOCAL 

NOT_ALL_ADDED, ! A flag to tell if we added all the 


MC_PTR : REF MC_RECORD; ! Pointer to current MC record. | 


lee 
! Initialize the flag that we use to detect when we didn*t get to 
! modules we wanted to. 


NOT_ALL_ADDED = FALSE; 


1e¢ 


! Loop thru the module chain trying to add the indicated modules to the RST. 


! Note that we purposely don't look at the first MC record in the 


modules we wanted to. 


add all 


chain because 


PA 


5 
sep-1984 44 VAX“11 BLige=32_y4..0-742 
15- 800 ohe 9958555 | eee nRALSfeaccbAtcn Secaparery.e32" 


; f 5 4 § i is is reserved for globals. 
. ¥ $ 4 § C_PTR = .PAT$GL_MC_PTR 
; 4 : $23 UeTLE« (MC_PTR =~. MC_ PTR CMC_NEXT]) NEQ 0 ) 
: 740 461 IF (.MC_PTR CMC_IN_RSTJ) 
3; 741 46¢ THEN 
> 74 46 IF (NOT PATSADD_MODULE( .MC_PTR )) ' Try to add the module. 
> 74 464 THEN 
: 746 465 
: Oe rf me BTR Tar ia RST] © FALSE 
: rs 468 ; atites 
; 748 469 
: 749 470 ++ 
: o30 of) } Produce a warning message if we didn't add all those we tried to. 
: 038 47 IF (.NOT_ALL_ADDED) 
; 75 474 T 
: 754 475 SIGNAL (PAT$_NOTALLSYM) ; 
3; 755 476 
: 756 477 RETURN(TRUE); 
: 757 478 1 END; 
001C 00000 BUILD_RST: 
.WORD Save R2,R3,R4 
54 000000006 EF 9E 00002 MOVAB PATSGL RST’ BEGN, R4 
3 04 00009 CLRL NOT_ALC_A 
52 00000000G EF DO 90008 MOVL PATSGL AC PTR, MC_PTR 
50 5 64 cl 0012 1$: ADDL3 PATSCL “RST_BEGN, AC_PTR, RO 
5 60 ¢ 00016 MOVZWL (RO), PTR 
22 13 00019 EQL 
50 52 64 C1 0001B ADDL3 PATSGL_RST_BEGN, MC_PTR, RO 
a 03 AO 01 €1 OOO1F BBC #1, 0),71$ 
52 DD 00024 PUSHL é 
00000000V_ EF g1 FB 600 6 CALLS #17 PATSADD_MODULE 
Fé 0 €8 0002D BLBS 
01 00 000 9 MOVL NOT_ALL_ADDED 
50 58 64 C1 000 ADDL3 al NO RST_BEGN, MC_PTR, RO 
03 A 0 8A 0037 BICB2 #2, 3(RO) 
p 1 00038 BRB 
op E9 0003D 2$: BLBC NOT Aut ADDED, 3$ 
00608013 8F DD 00040 PUSHL #717621T 
000000006 00 01 FB 60046 CALLS #1, LIBSSIGNAL 
50 01 0040 3$: MOVL #1, RO 
4 00050 RET 


; Routine Size: 81 bytes, Routine Base: _PATSCODE + 0213 
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128 the GLOBAL ROUTINE PATSADD_MODULE( MODULE_TO_ADD ) = 

761 461 14 

o : § FUNCTIONAL DESCRIPTION: | 
ree ri ¢ Add the indicated module to the RST data base. | 
766 486 i FORMAL PARAMETERS: 

767 4 ! 

768 488 : MODULE_TO_ADD <=An RST=-pointer to the MC record for 

769 489 ! the module we are to initialize. 

770 490 ! This is necessar because this module 

771 491 ! is scope-wise ‘above’ all symbols 

ure PP declared in the outer block of this module. 
774 494 1 ' IMPLICIT INPUTS: 

775 495 ! 

776 49 ! none. 

777 49 ! 

778 498 ' IMPLICIT OUTPUTS: 

779 499 ! 

780 500 ! none 

781 0 ! 

8 COMPLETION CODES: 

784 9 TRUE, if all goes OK, FALSE otherwise. 

786 0 SIDE EFFECTS: 

788 0 i The symbols for the indicated module get added to 

788 0 the various RST data structures. 

791 ine 


The overall structure of this routine 
is one Large loop in which we add 
successive DSTs to the RST. 


ADD_DST_LOOP; 
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MODULE_TO_ADD : REF MC_RECORD; 


LOCAL 
ID we are passed back so that we can 

later refer to DST records. F 
Pointer to where a fetched DST record Live 
Pointer to NT records we build. 


DST_REC_ID, 


DST_RECRD : REF DST_RECORD, 
NT_PTR : REF NT_RECORD; 


lee 

' A new module must define a new position from which to start as far as building 
! in scope structure is concerned. To do this we reinitialize the scope stack, 
' a stack of RST-pointers, the top one of which points to the NT or MC recor 

' that corresponds to the symbol (MODULE or ROUTINE) that is scope-wise above 

! any symbol currently being added to the RST data base. The reason why we 

' need a stack to keep track of this is simply because BLISS allows nested 
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ROUTINE declarations. 


Likewise we have to stack SAT pointers to ROUTINE SAT records so that when 
ve get on corresponding end-of-routine we can go to the SAT and fix up 
& value. 


LOCA 
SCOPE_STACK : VECTOR CMAX_SCOPE DEPTH +1, XSIZE(RST_POINTER)] 
SAT_RTN_STACK_: VECTOR CMAX_SCOPE_DEPTH +1, USIZE(SAT_POINTERSJ, 
SCOPE _STACK_PTR, ' Index to current top of scope stack. 
CURENT_LANGDAGE ; ! Per-module source code language indicator. 


le4¢ 
! Make sure that we can go ahead and add the indicated module. Also peform 
! any needed checks and initializations. 


iF (NOT OK_TO_ADD(.MODULE_TO_ADD, CURENT_LANGUAGE)) 
RETURN(FALSE); 


'+¢ 

! Initialize the scope and SAT_RTN stacks. (See above). Since the top-of-stack 
! entry is MODULE, the corresponding entry in the SAT_RIN stack is not used, 

! in BLISS, always used, in F RTRAN, and never used, in MARS. This is because 
' BLISS has ‘real' scoping FORTRAN'S scope is only 1 level deep, and MARS 

: doesn't give us DST entries for end-of-routines. 

SCOPE _STACK_PTR = 0; 

CHSFICL(O, ZALLOCATION(SAT_RTN_STACK) SAT_RTN_STACK ); 

CHSF ILL ( FALLOCATION (SCORE STACK), §COPE “STACK ); 

SCOPE_STACKLO) = .MODULE_TO_ADD; 


lee 
! Now process the DST record by record, ending when we encounter a module_end 
' record, or when some error occurs. 


WHILE( (DST_RECRD = PATSGET_NXT_DST( DST_REC_ID )) NEQ 0 ) 


ADD DST LOOP: ! Failure to add a DST => we LEAVE add block 


lee 
We process each record depending on its DST type. 


CASE -DST_RECRD COSTR_TYPE] FROM DST_DST_LOWEST TO DST_DST_HIGHEST OF 


Se 


COSC$K_DTYPE_EOM): ! End module record. 
BEGIN 


lee 

! This is the ONLY successful way this routine can terminate 
! since we insist that a group of DST records end with an End 
' Module record. 

Modules added OK are not about to be deleted. 


MODULE_TO_ADD CMC_IS_DYING) = FALSE; 


lee 
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! See if we can free up some of the vector storage oh gcated 

! for this module. This will be the case when we didn't actually 
' add as many of the NTs, SATs, or LVTs es the MC statictics 

! indicated we ater. (which is almost a weye the case because 
the gathering is not as detailed as it might be). 


PATSVS_SHRINK( MODULE_TO_ADD [MC_NT_STORAGE] ); 
PATSVS-SHRINK( MODULE-TO-ADD CMC"SAT_STORAGE) 3; 
PATSVS-SHRINK( MODULE-TO-ADD EMC"LVT~STORAGE) ): 
RETURNTTRUE) ; 


COSCSK_DTYPE_RTNJ: ! Begin a ROUTINE record. 
BEGIN 


le 
' In all languages, a routine name is at least a symbol, which 
must therefore appear in the NT. Add the symbol to the NT. 


iF C(NT PTR = ADD_NT(.DST_RECRD, .SCOPE_STACKL.SCOPE_STACK_PTRI) 


LEAVE ADD_DST_LOOP; 


144 

' Then, in BLISS, each routine record also implies that we go 
i one level down as far as scope is concerned. This is why we 
maintain the so-called scope stack. 


if (-CURENT LANGUAGE EQL BLISS_MODULE) 
BEGIN 
'44¢ 
Check for scope stack overflow. 
1 ( (SCOPE_STACK_PTR = .SCOPE_STACK_PTR +1) GTR MAX_SCOPE_DEPTH) 


BEGIN 
$FAO_TT_OUT('!/PAT$add_module: scope depth overflow’); 
RETURNCFALSE) ; 


lee 
Push the new scope level onto the scope stack. 


SCOPE, STACK C.SCOPE_STACK_PTR] = .NT_PTR; 


'++ 

' Routine symbols also go into the SAT. The catch here is that 
! we don't yet know the length of the routine, so we have to 

! stack a peiater to the SAT record we build so that we can 
fix up this problem when we do get the info. 


iF ((SAT_RTN_STACK C.SCOPE_STACK_PTR] = 
ae pAbD SAT .NT_PTR, 7DST_RECRD CDSTR_VALUE), 0)) 
THEN 
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BEGIN 
lee 


i Don't allow the next end_of_routine record 
! to overwrite something invalid. 


SAT_RTN_STACK C.SCOPE_STACK_PTR] = 0; 
BEL ONW FALSE); 


END; 
COSC$K_DTYPE_EOR]: 
BEGIN 


+4 

! This is where we tinal ty get to find out the length that the 
' current routine was. This info allows us to complete the 

! building of the RST record which corresponds to the routine 

' itself. If we do not have a valid pointer to this routine's 
! SAT, some logic error has occurred. 


IF (.SAT_RTN.STACK [.SCOPE_STACK_PTR] NEQ 0? 


BEGIN 

LOCAL 
FIXUP_SAT_PTR : REF SAT_RECORD, 
RIN_NT_PTR : REF NT_RECORD; 


'44¢ 
' Pickup a pointer to the SAT record which corresponds 
the associated ROUTINE NT record. 


FIXUP_SAT_PTR = .SAT_RTN_STACK [.SCOPE_STACK_PTRI; 
'e4 
' The upper bound for this routine is the address at 


' which the code for it ends. NOTE: we have now 
! "bounded’ the symbol. 


FIXUP_SAT_PTR CSAT UB) = af 1xUP SAT_PTR CSAT_LB) 
RIN_NT_PTR = .FIXUP_SAT PTR CSAT_NT_PTRI; | 9 


ELSE 
BEGIN : ; 
$FAO_TT_OUT('!/rtn end without begin‘); 
RETURN(FALSE); 
END; 
lee 
Pop a scope level off of the scope stack. 
if (.CURENT_LANGUAGE EQL BLISS_MODULE) 


! End of (BLISS and FORTRAN) routine. 


6 


Af, SCOPE STACK PE = ,SCOPE_STACK_PTR -1) LSS 0) ! Check for scope stack underflow | 


BEGIN 


| 
| 
| 


‘ 
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; 987 707 $FAO_TT_OUT('!/add_module: scope depth underflow'); 
> 988 708 ; RETURN(FALSE); =~ ete | 
; 989 709 4 END; 
: 990 710 END; | 
; 991 711 
i ar COSC$K _DTYPE_FLDJ: ! BLISS fields are ignored. 
; 99 713 4 BEGIN 
: 994 714 4 TRUE; 
; 995 715 END; 
: 996 a 
; 997 71 COSCSK_DTYPE_LBL ! Label or Literal DSTs. (MARS only) 
; 998 718 DSCS$K~DTYPE-SLBI: i Labels in FORTRAN and BLISS. 
; .999 719 4 BEGIN 
; 1000 720 4 ++ 
: 13 f 1 2 Add the symbol to the NT. 
3 1908 f § ? M4 ((NT_PTR = ADD_NT(.DST_RECRD, .SCOPE_STACKC.SCOPE_STACK_PTRJ)) EQL 0) 
; 1005 $h5¢ 4 LEAVE ADD_DST_LOOP; 
; 1006 sis6 4 
; 1007 e727 4 '++ 
; 1008 2728 4 ! Then, add it to the LVT or SAT, dependin 
: 1009 si¢e 4 ! on whether the symbol is a literal or not. 
: 1010 2730 4 ! Here PATCH ignores registers while DEBUG does not. 
; + 9p sie) : ! Hence, the more specific check of field DSTR_ACCO1. 
: 1013 $736 5 IF ((.DST_RECRD COSTR_TYPE] EQL DSCSK_DTYPE_SLB) OR 
3; 1014 2734 5 (.DST_RECRD COSTR_ACCO1) EQL ACCS_VALUEABR) ) 
; 1015 735 4 THEN 
: 1016 736 «5 BEGIN 
3; 1017 737 6 IF (ADD_SAT( .NT_PTR, .DST_RECRD CDSTR_VALUEJ, 0) EQL 0) 
; 1018 2738 5 T 
3; 1019 2739 5 RETURN(FALSE); 
; 1020 2740 § END 
3 196) e741 4&4 ELSE 
: 1022 site 5 EGIN 
: 1023 27435 6 IF (.DST_RECRD COSTR_ACCO1] EQL ACCS_LITERAL) 
3 1024 2744 «5 THEN 
: 1025 745 6 IF (NOT ADD_LVT( .NT_PTR, .DST_RECRD CDSTR_VALUE])) 
: 1026 roe 5 THEN 
; 1027 747 5 RETURN(FALSE) ; | 
3; 1028 2748 4 END; 
3 9 2749 ; END; 
; 10350 750 COSCSK_DTYPE_PCT): ! P-SECT record. 
: 1031 751 4 BEGIN 
: 1036 £36 4 LOCAL 
; 103 753 4 PSECT_LENGTH : REF VECTORC,LONG); 
: 1034 754 4 '++ 
: 1932 ay ? Add the symbol to the NT. 
: 1037 739 ? 4 ((NT_PTR = ADD_NT(.DST_RECRD, .SCOPE_STACKC.SCOPE_STACK_PTRJ)) EQL 0) 
: 1039 759 4 LEAVE ADD_DST_LOOP; 
3; 1040 760 4 
3: 1041 761 4 '++ - 
; 10e§ 762 4 ! The symbols also goes into the SAT. Since we have to pass on 
3 104 7635 4 ! the Length of the PSECT, we must extract a field which is 
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; 1044 764 4 ! in a variable position within the DST. This code must be 
; 1045 765 4 ! changed if the psect length is not directly after the counted 
3 1308 fe 2 : string name. 
; 1048 768 4 PSECT_LENGTH = DST_RECRDCOSTR_NAME) + .DST 5 Saanteieatataiets +1; 
; 1049 769 2 IF (ABD SAT( .NT_PTR, .DST_RECRD COSTR_VALOE 
: 1050 770 DST_RECRD COSTR_VALUEJ + .PSECT_LENGTHCOJ ) EQL 0) 
; 1051 771 & THEN 
3 1926 ak 4 RETURN(FALSE); 
; 105 77 END; 
; 1054 774 
; 1055 775 CINRANGE, OUTRANGE): 
; 1056 gre 4 BEGIN 
; 1057 777 & 144 
; 1058 778 4 ! This should be a separate CASE, but isn't due simply to the 
; 1059 779 4 ' size of the case table. PATCH handles the following types 
; 1060 2780 4 ' of symbols: 
; 1061 2781 & : dsc$k_dtype_v bit 
; 1Se6 144 4 : dsc$k_dtype_bu byte logical 
: 106 2785 4 ' dsc$k_dtype_wu word logical. 
: 1064 2784 4&4 : dsc$k_dtype_lu lLongword logical 
; 1065 785 4 : dsc$k_dtype_qu quadword logical 
: 1066 786 4 : dsc$k_dtype_b byte integer 
: 1067 787 4 : dsc$k_dtype_w word integer 
3; 1068 788 4 : dsc$k_dtype_l ners nteger 
: 1069 789 4 ' dsc$k_dtype_g Quadword integer 
; 1070 790 4 : dsc$k_dtype_ aingie-erecis on floating 
; 1071 2791 4&4 : dsc$k_dtype_d double-precision floating 
3 1076 1444 4 : dsc$k_dtype_fc senpies 
3; 107 27935 4 ' dsc$k_dtype_dc double-precision complex 
; 1074 $e 4 : dsc$k_dtype_t ascii text 
; 1075 795 4 ‘ dsc$k_dtype_nu numeric string, unsigned : 
: 1076 2796 4 ‘ dsc$k_dtype_nl numeric string, left separate sign. 
: 1077 2797 & ! dsc$k_dtype_nlo numeric string, left overpunched sign 
; 1078 2798 4 : dsc$k_dtype_nr numeric string, right separate sign 
; 1079 2799 & : dsc$k_dtype_nro numeric string, right overpunched sign 
; 1080 2800 4 ‘ dsc$k_dtype_nz numeric ote tne. zoned sign 
: 1081 2801 4 : dsc$k_dtype_p packed decima string 
; Hs 44 4 : dsc$k_dtype_zi sequence of instructions 
; 108 2803 4 : qscSk_dtype_zem procedure entry mask 
3; 1084 2804 4 ! PATCH ignores the following types of symbols: 
: Hs Sane : dsc$k_dtype_z unspecified 
: 1087 807 4 IF (.DST_RECRD COSTR_TYPE] GEQ DSCSK_DTYPE_V) AND 
; 1088 808 5 (.DST-RECRD COSTR-TYPE) LEQ DST_TYP_HIGREST) 
: 1089 809 4 THEN 
; 1090 810 4 144 ‘ 
; 1091 811 4 ! Check that PATCH can handle the symbol. Discard 
3 1 aig 4 's woets gerne as registers or by descriptors, 
; 109 813 4 ' (bits +5 equal to 2 or 3) and symbols whose values 
3; 1094 814 4 ' are based off registers (bits 0+1 equal to 2 or 3). 
3: 1095 815 4 ' The remaining symbols (literals or value addresses not 
; 1098 gig ? ; based off registers) are now added to the NT and SAT. 
: 1098 318 : IF ((.DST_RECROCDOSTR_ACCO1) EQL ACCS_LITERAL) OR 
: 944 Hh : pl (.DST_RECROCDSTR_ACCO1] EQL ACCS_VALUEADR) ) 


—_—————— ce m wm emre— 


lee 

!' The only so-called SRM types which we 
' know the size of are those from 

' DSCSk_DTYPE_BU to _DC, inclusive. 

i we simply pick this size value out 

' of the above vector. 


dD 6 
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01 821 eRe ear tt EQL ACCS_NOTBASDIR) OR 
8g § (.DST_RECROLDSTR_ACC EQL ACCS_NOTBASIND)) 
87 i THEN 
Be tes 
43 8 ' Most of these 4 a 9 should also 9° into the SAT. 
0 4 ! The ones that should not are the BLISS type 
08 8 ' symbols which are not static. PATCH 
09 829 ' “eet | ignores all records which are type 
10 830 : (unspecified) so there is no test to weed 
11 831 ' them out here. 
\§ 4 ¢ ' Processing of SRM data types depends 
1 ! on whether the datum is scalar or not. 
1 : : } Only scalars are handled here. 
16 8 LOCAL 
; pon 
19 839 SRM_LENGTHS : VECTOR(C12,BYTE) ! Sizes of SRM type data. 
20 840 INITIAL( BYTE (¢ 
21 841 et DSCSK_DTYPE_BU, Byte logical. 
$§ ot6 oa DSCSK_DTYPE_WU, Word logical. 
Fr 84 6, DSCSK_DTYPE_LU, pengeer logical. 
24 844 8, ! DSCSK_DTYPE_QU, Quadword logical. 
25 845 Is 3 DSCSK_DTYPE_8, Byte integer. 
26 846 Se 3 DSCSK_DTYPE_W, Word integer. 
27 847 Se..3 DSCSK_DTYPE_L, Longword integer. 
28 848 So. } DSCSK_DTYPE_Q, Quadword integer. 
$3 849 6, } DSCSK_DTYPE_F, Le pat obed L on floating 
0 850 8. ! DSCSK_DTYPE_D, double-precision floating 
: DSCSK_DTYPE_FC, complex 
31 851 8, | SCS$KDTYPE FC pt 
$ o3¢ 16 i DSCSK_DTYPE_DC, double-precision complex 
3 85 »); 
34 854 
35 855 
856 
857 
858 
859 
860 
86 
86 
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3 3 
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3; 7 
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; 7 
; 1 
3; 7 
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3% 
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3 3 
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3; 7 
3 Y 
37 
3; 7 
3 3 
3:7 
3 7 
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3; 1 
3; 7 
3 7 
3; 7 
3; 1 
3 7 
37 
3 7 
3 1 
3 7 
3 7 
3, Y 
3 7 
7 
3% 
3 7 
5 3 
3; 7 
37 
3; 7 
3 7 
3 7 
37 


lee 
! Unknown upper-bound addresses 
; must be 0. | 


SIZE = 0; 
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1 bd 
B6¢ if C(NT.PTR = ADD_NT(.DST_RECRD, .SCOPE_STACKL.SCOPE_STACK_PTR])) EQL 0) 

B64 VE_ADD_DST_LOOP; 

5 SIZE = .DST_RECRD-CDSTR_T | 
866 IF (SIZE GEQ DSC$K_DTYPE BU) AND | 
86 (,SIZE LEQ DSCSR_DTYPE_DC) 
868 THEN 
86 SIZE = .DST_RECRD CDSTR VALUE] - 1 + 

70 .SRA_LENGTHS C.SIZE - DSCS$K_DTYPE_BU 
f ELSE 
4 


] 
| 
| 
| 
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| 
§ 1138 re 1+4 : 
3 1173 4 Add the symbols known to be static to the SAT. : 
: 1183 esi if (ADD_SAT(.NT_PTR, .DST_RECRD CDSTR_VALUEJ, .SIZE) EQL 0) . 
1188 B88 RETURN(FALSE); | : 
3; 1164 + END ! end of TYPES _V THRU _Q : 
: 1188 Bag é wn | eee | 
> 1167 88 1+¢ : 
: 1368 888 ! Array types are more complicated than scalars § 
>; 1169 889 ! as there is more involved in calculating the ; 
; 109 Say :_lower and upper address bounds. : 
e { 7 } 3 
3 117 892 5 LOCAL 3 
° 1198 B98 5 DESC_ADDRESS, | 3 
; Vine S30 5 iad BOUNDS : ARRAY_BNDS_DESC; | : 
: 1176 ate H i Eliminate all Synante arrays. Those kept are 3 
3 1177 2897 5 ' are described within the DST -- so called ; 
3; 1178 Sees : ' PC’ based descriptors which have _BASD = 2 ; 
3 te 344 : and _BREG = 15. : 
: 1181 2901 5 if (.DST_RECROCDSTR_ACCES_ TYPE] EQL ACCS_DESCRIPTOR) AND : 
: 1182 290 5 (.DST_RECROCDSTR ACCES _BASDJ +4) ACCS _BASDIR) AND $ 
> 1183 290 : ([DST_RECRDCBSTR_ACCES_BREG) EQL 15) | 3 
4 1188 $308 6 epee BEGIN : 
> 1186 906 6 1+4 : 
: 1187 2906 6 ! If .BASD and _BREG are both zero, then ; 
; 1188 2908 6 ! the descriptor ney not_be complete. : 
3 By 4 44 ? ! In this case the ADD_NT call fails. : 
3 1191 2911 7 if ((NT_PTR = ADD_NT(.DST_RECRD, .SCOPE_STACKL.SCOPE_STACK_PTRJ)) EQ) ; 
; 1336 $316 6 THEN F 
: 1332 solz ? — LEAVE ADD_DST_LOOP; | : 
: 1195 2915 6 i Get the address of the array descriptor and : 
3 1198 $918 ? ' use it to build a ‘bounds descriptor’. : 
; 1198 918 f If (PATSDST_VALUE( .DST_RECRD, DESC_ADDRESS) EQL 0) 3 
> 1200 920 6 RETURN(FALSE); ! THIS TYPE NOT HANDLED | : 
: 1202 a ? PAT$GET_BOUNDS(.DESC_ADDRESS, BOUNDS); ; 
:1 923 6 1++ F 
s 1504 924 6 ! The beginning of the array plus the number of g 
: 1205 925 6 ' bytes of elements minus one is the address of : 
3 Y 38 9 $ 6 ! the end of the army. : 
3 ' 44 ? 6 Add this symbol to the SAT. | : 
: 1209 9 5 ; if (ADD_SAT(.NT_PTR, .BOUNDSCARRAY ADDRESS], | : 
: 1210 930 7 “BOUNSSTARRAY ADDRESS + : 
3: 1211 33! 7 -BOUNDSCARRAY_LENGTH) -1) : 
: 1518 988 6 mene | 
> 1214 934 6 RETURN(FALSE) ; | : 
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71 935 5 END; ' END OF ARRAYS HANDLED CURRENTLY 
3; 1 9 § 4 END; ' END OF ARRAYS AND DESCRIPTORS 
3; 3 9 END; ' END OF INRANGE ,OUTRANGE | 
: 1 938 TES; i END OF CASE LOOP | 
; : 373 END; ! Go back and process the next record. (ADD_ 
:1 941 144 | 
3 (1 ar8 ! If the above WHILE exits, then we encountered the end of the DST records 
3 3 94 ! before we got an END_MODULE record to end the beginning MODULE one. This is | 
: : ate } considered a fatal error. 
; ; 4 $F AO_TT_OUT('!/Premature end of DST in routine ADD_MODULE.'); 
: 1 948 @ RETURN(FALSE); | 
3: 1 949 1 END: 
; IN 212 . 12630 tet she | 
; xpression appears in value-required contex 
: INFO#S15 a | 
3 Null sygreceten appears in value-required context 
: INFO#21 L1:2707 
; Null expression appears in value-required context 
: INFO#21 L1:3946 


Null expression appears in value-required context 


-PSECT _PATSPLIT,NOWRT ,NOEXE ,0 
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$6 00087 P.AAF: .BYTE 38 3 
6c 75 6F 6D SF 64 64 24 54 41 50 2F 21 00088 «ASCII \!/PATS$add_module: scope depth overflow\ 3 
20 74 70 65 64 20 65 70 6F 63 73 20 3A 65 00097 ; 
77 6C 66 72 65 76 6F Q00A6 3 
17 QOOAE P.AAG: .BYTE 23 3 
6F 68 74 69 77 20 64 6E€ 65 20 6& 74 72 2F $! OOOAF ASCII \!/rtn end without begin\ 3 
6— 69 67 65 62 20 74 75 OOOBE 3 
$3 Boece P.AAH: .BYTE 35 : 
73 20 3A 65 6C 75 66 6F 6D SF 64 64 61 2F 21 000C -ASCII \!/add_module: scope depth underflow\ : 
65 64 6€ 75 20 68 74 70 65 64 20 65 70 6F 63 4494 ; 
7 6F 6C 66 72 QOODE 3 
D QOOEA P.AAI: .BYTE 45 : 
6— 65 34 65 75 74 6D 65 72 50 2F 21 OOOEB ASCII \!/Premature end of DST in routine ADD_MO\ ; 
74 75 6F 72 20 6E 69 20 54 53 44 $3 66 6F 20 OOOFA 3 
4D 5F 44 41 20 65 6E 69 00109 ; 
2E 45 4C 55 44 00113 ASCII \DULE.\ 3 
-PSECT _PATSOWN,NOEXE,2 
10 08 08 04 08 04 O02 OF 08 04 O02 O01 00004 mei" 


1, 2. 4, 8, Ve 2. 4, 8, 4, 8, 8, 16 Ps 


.PSECT _PATSCODE ,NOWRT,2 | 
OFFC 00000 -ENTRY  PATSADD MODULE, Save R2.R3.R4,R5,R6,R7,RB,— ; 2479 | 
5B 000000006 EF 9€ 00002 MOVAB PATSVS_SHRINK, R11 : | 


é 
1B-se -1984 9:44 VAX-11 Oise: 32 V4.0-742 
1 ~3007 138% 99: 23:54 :28 DISKSVMSMASTER: CPATCH. SRCJPATBLD. B32. 79 8 | 
A 0 00 "EF 3 0 0 MOVAB P.AAF, R10 : 
9 0 G EF 9€ 0001 MOVAB PATSGL_RST_BEGN, R9 : 
8 00000000v EF 9€E 0001 OVAB ADD NT; RB : 
E AB AE 9E 3 MOVAB <-88TSPS, SP : 
5E Dp PUSHL SP : 2552) 
57 04 AC DO 00024 MOVL  MODULE_TO_ADD, R7 : 
DD 00028 PUSHL R7 : 
00000000v FF : FB 6 A CALLS 6 Ox _TO_ADD ; 
o2ba $1 000 BRW ; | 
56 D4 037 1$: CLRL spe STACK_PTR + 2563 
MOV #0, (SP), #0, #44, SAT_RTN_STACK + 2564 
2c 00 6E cs 00 C 0 9 C5 (S 0, #44, 25 
e e ’ . eo K Py 
16 00 6E ve 06 2c 0004 MOVCS #0, (SP), #0, #22, SCOPE_STAC 2565 
40 AE 0 80 00047 MOVW  R7, SCOPE_STACK + 2566 
04 AE 9F 00048 2S: PUSHAB DST_REC + 2572 
000000006 EE gi FB 00046 CALLS #1, PATSGET_NXT_DST : 
2 9 00 0005 MOVL RO, DST_RECRD : 
03 1 00058 BNEQ 3$ ; 
0108 31 OO05A BRW 32$ : 
08 B? BF 01 Ag BF 00050 3$ CASEB 1(DST_RECRD), #183, #8 : 2579 
0012 01A3 FFE 00063 4$ <WORD  2$-4$7- : 
004 0012 016A 00068 e874 i ; 
012¢ 00073 38-48 - : 
g38-48.- : 
$-4$,- ‘ 
15$-4$,- : 
16$-4$,- : 
19$-4$ 3 
01 A2 95 00075 5$: TSTB =: 1 (DST_RECRD) : 2807 
D1 13 00078 BEQL 2$ ; 
17 01 a2 71 O007A CPB T(DST_RECRD), #23 : 2808 
50 02 A2 02 00 FF 90080 EXTZV #9, #2, 2(DST_RECRD), RO : 2818 
" te 93 a0088 GNed OS tev: 
0c 02 a2 e§ S08, 6$: BITB — wi2 > 2821 
08 13 00091 BEQL $ : 
01 02 A2 02 02 FD 0095 CHPZV ' #2, 2(DST_RECRD), #1 + 2822 
7E 40 AES6 3¢ 09 7$: MOVZWL SCOPE STACKCSCOPE_STACK_PTR], -(SP) + 2862 
52 DD OOOA PUSHL  DST_RECRD ; 
68 g FB OOOA CALLS #2, ADD_NT ; 
5 00 GOA MOVL * NT_PTR ; 
Al 13 000A8 BEQL : 
50 01 A2 9A OOOAA MOVZBL (DST _RECRD), SIZE > 2865 
= 7 95 O98 BUSS _ 
0D 50 01 00083 CMPL Ize, #13 : 2867 
12 14 0086 BGTR ; 
51 00000000" EF4 9A BB MOVZBL i LENGTHS-2CSIZEJ, R1 : 2870 
51 03 =A £0 C ADDL DST ER RECR D), RI F 
50 fF OA ; C4 MOVAB J, SIZE : 2869 
02 11 000¢8 BRB : 
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af 
02 
02 02 A2 02 ; 
OF 02 A2 04 4 
FF6 
7E 40 
6 
8 
EE 
08 8 
00000000G_ EF 2 
nt 
0c AE 
0c ag 
00000000V EF 0 
50 0c AE 10 AE 
FF AO 
10 AE 
OOF F 
50 57 69 
03 AO 40 8F 
1¢ AO 
6B 01 
50 57 69 
23. = AO 
6B 01 
50 57 69 
2A =AO 
6B 01 
50 01 
7E 40 “ 
6 
$8 
02 oe 
af 
26 
OA 6 
96 
E 
A 
40 AE46 i 
sf 
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for 
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28  DISKS$VMSMASTER:CPATCH.SRCJPATBLD.B32;1 (¢ j 
SIZE ; 3876, 
; gf : 881 | 
R { #2 + 2901 
He, #2, 2(DST_RECRD), #2 + 2902 
#4, #4, 2¢DST_RECRD), #15 : 2903 
23 : 
SCOPE_STACKCSCOPE_STACK_PTRJ, -(SP) > 2911 
DST_RECRD : 
#2,~ADD_NT ; 
. § NT_PTR : 
DESC_ADDRESS + 2918 
DST_RECRD : 
ae. PATSDST_VALUE 3 
14$ : 
34$ : 
BOUNDS > 2921 
DESC ADDRESS ; 
#2, PATSGET BOUNDS ; 
BOUNDS*S, BOUNDS, RO : 2931 
ROUNDS ; 2929 
PAISGL RST_BEGN, R7, RO : 2590 
#64. 3TRO) 3 
KO) : 2599 
#1, PATSVS_SHRINK : 
PATSGL_RST~BEGN, R7, RO : 2600 
35(RO) 3 
#1, PATSVS_SHRINK : 
PATSGL _RST_BEGN, R7, RO : 2601 
#1, PATSVS_SHRINK ; 
#1, RO > 2602 
SCOPE _STACKCSCOPE_STACK_PTRJ, -(SP) > 2611 
DST_RECRD ; 
#2, ADD_NT ; 
no NT_PTR : 
228 > 2612 
¢ RENT LANGUAGE , #2 > 2621 
SCOPE_STACK_PTR > 2627 
SCOPE-STACK PTR, #10 3 
= (SP) : 2630 | 
Bas | 
NT_PTR, SCOPE_STACKCSCOPE_STACK_PTR ; 3637 | 
-(SP) > 2647 
3(DST_RECRD) ; | 
} 


4 
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1 ~3eP 71382 99:2 :28 DISKSVMSMAS TER: CPATCH. SRCIPATBLD.B32:1> hat 

00000000v_EF 3 FB 0017 CALLS #3, ADD_SAT : 

14 AEG6 6 p nov R { SAT-RTN_STACKCSCOPE_STACK_PTR] Pe 

14 aed6 ps 9 CURL SAT_RTN_STACKLSCOPE_STACK_PTR] : 695 

50 14 AE4G 09 f 19$: HOVE stifle ciate RO + 2669 

51 02 A 03 hs 1 00196 ADDL3 (DST_RECRD), 2(FIXUP_SAT_PTR), R1 + 2688 
6 A FF 6A1 «SE 0019¢ OVAB =1(R1J, 6(FIXUP_SAT PTR) : 

60 1A1 MOVZWL (FIXUP.SAT_PTR); RTR_NT_PTR + 2689 

0 69 é 1A4 ADDL PAT SCL RST-BEGN, RO + 2690 
03 AO 80 BF OAT BISB2 #128, 3(R : 

14 AEAG D4 OO1A CLRL SAT_RTN STACKCSCOPE. STACK PTR] + 2691 

: 11 001B BRB 1$ + 2669 

—E D4 00182 20$:  CLRL  -(SP) + 2695 
27 «AA (9F 001B4 PUSHAB P.AAG : 
12 11 00187 B 24$ : 

02 ; D1 00189 21$: CMPL CURENT LANGUAGE , #2 + 2702 
12 001BC BNEQ $ : 

02 6 F4 001BE SOBGEQ SCOPE_STACK_PTR, 22$ + 2704 
03 11 001C1 BRB 3$ : 
FEBS 31 001C3 328: BRW 3 ; 

E D4 00106 238: CLRL  -(SP) : 2707 
3F «= AA.soO9F:«001C8 PUSHAB P.AAH : 
6D 11 001CB 24$: BRB 33$ : 

7E 40 AES6 3C 001¢D 5$:  MOVZWL SCOPE_STACKCSCOPE_STACK_PTR], -(SP) + 2723 
52 DD 01 2 PUSHL DST_RECRD ; 
3 02 FB 00104 CALLS #2,7ADD_NT ; 
53 50 D0 00107 MOVL RO, NT_PTR : 
E7? 13 OO1DA BEQL 2 ; 

BBO 01 A2 91 0010¢ CMPB =s-« 1(DST_RECRD), #187 : 2733 
08 13 OOTE1 BEQL ; 

01 02 A2 02 00 FD 001€3 CMPZV #9 #2, 2(DST_RECRD), #1 + 2734 
04 12 00169 BNEQ 278 ; 

7E D4 OO1EB 26$ CLRL = = (SP) : 2737 
34 11 OO1ED BRB 0$ : 

03 02 A2 93 O1EF 278 BITB (DST_RECRD), #3 > 2743 
cE 1 OIF BNEQ 2$ ; 

03 Ad DD OO1F PUSHL 3(DST_RECRD) > 2745 
53 DD 001F8 PUSHL NT_PTR F 
00000000V_ EF : FB O1FA CALLS a3; ADD_LVT ; 
: 0201 BLBS RO, 22$ ; 

B 11 00 88: BRB 34§ + 2747 

7E 40 AE46 3¢ 6 9$:  MOVZWL SCOPE _STACKCSCOPE_STACK_PTRJ, -(SP) > 2757 

52 0D PUSHL DST_RECRD ; 
68 9 F CALLS #2, ADD_NT ; 
5 D 1 MOVL RO, NT_PTR : 
AE 1 1 BEQL g § : 

50 07 Ad 9A 0021 MOVZBL 7(DST_RECRD), RO : 2768 
5 08 A04 H 1 MOV 8(RO)CDST_RECRDJ, PSECT_LENGTH ; 

7E 03 A 60 ¢ 3 ADDL3 (PSECT_LENGTH), S(DST_RECRD), -(SP) > 2770 

03 A2 OD 308: PUSHL 3(DST_RECRD) > 2769 
53 DD 6 1$:  PUSHL NT_PTR ; 
00000000V_ EF F CALLS #37 ADD_SAT : 

ce - 

oc 1 § z BRB $3 : 2772 


Paley 1b-sep- 1984 00:58:44 ARCH BL 


7E ps 328: CLRL  <(SP) 
63 AA F PUSHAB P.AAI 
000000006 EF 08 FB A 33$: CALLS 2, PATSFAO_OUT 
gi $85uy Sg 


; Routine Size: 580 bytes, Routine Base: _PATSCODE + 0264 


H. SAC 


IPATBLD.B3264°" (3) 
6 


eee) 


294 


2949 


| 

K 6 | 
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14-Sep-19 4 99:33:38 DISKSVMSMASTER = CPATCH. SRCJPATBLD.B32: 1" a 
: } 1 9 : ROUTINE OK_TO_ADD( MODULE_TO_ADD, LANGUAGE_ADDR ) = : 
:1 : 93¢ 1 144 3 
; ! : ; ? ! FUNCTIONAL DESCRIPTION: : 
3 1 § 336 1! See if it is OK to add the jngicaree module to the RST data base. | ‘ 
3} 328 1! Also perform all necessary initializations so that ADD_MODULE : 
; ! : ger : can go ahead an do so. : 
; 1240 959 1 ! FORMAL PARAMETERS: ° 
3; 1241 960 1! ; 
3; 124 961 1! MODULE_TO_ADD An RST-pointer to the my record for : 
; 124 9ee 1} the module we are to initialize. ‘ 
3 1244 965 1! LANGUAGE ADDR <The address of where we should pass ‘ 
3; 1245 964 1! ack the module's language. If this : 
3 3 re 7e> 7 | value = 0, we don't position the DST ; 
3 : rtf 328 : or check or pass back the language indicator. : 
3; 1249 968 1°! IMPLICIT INPUTS: : 
; 1250 969 1! : 
: 1$2) sony 1! We believe the given MC pointer. In particular, . 
3 } 26 wi od we will not allocate storage for a module ; 
3 125 4 1} f the corresponding storage descriptor ‘ 
3 \$26 4 6 : already contains a pointer. (i.e. is not 0). : 
3; 1256 $322 1 ! IMPLICIT OUTPUTS: : 
; \s2l 44 1! : 
; 1258 977 1! ADD_MODULE will not fail if it is called after this : 
: \$33 44 : routine successfully completes. ‘ 
3; 1261 980 1! The Language code may be passed back to the caller. ‘ 
3 1568 981 1! : 
3: 126 982 1 ! ROUTINE VALUE: : 
3 1264 985 1 ! COMPLETION CODES: 3 
; 1265 984 1! : 
: 1266 985 1! TRUE, if all goes OK, FALSE otherwise. : 
3 1267 986 1! : 
; 1¢08 987 1 ! SIDE EFFECTS: ; 
3: 1269 988 1! : 
3; 1270 989 1! Storage for all symbols for this module : 
3; 1271 990 1! is allocated so that PATS$SVS_GET can then 3 
; ' Le: 44 } simply dole it out. ; 
3 1274 995 1! The DST is ‘positioned’ so that PATSGET_NXT_DST. 3 
3 1275 994 1! will be able to sequentially read the DST starting 3 
3; 127 995 1! at the first record in the DST after the DST record 3 
3; 127 451 1! for the indicated module. : 
: 1278 997 1! : 
; 144 998 1 !-- : 
: i a $00 2 BEGIN 
: 1282 bot 3 
: 128 OOS MAP : 
3 1 rf: 0 LANGUAGE _ADDR : REF VECTOR : 
> 1285 004 MODULE_TO_ADD : REF MC_RECORD; ; 
: 1286 005 3 
3 1287 006 LOCAL | 3 


iF (.MODULE_TO_ADD CMC_STATICS) NEQ 0) 
THEN 


WALA 
Wwnr—oo 


BEGIN 

STORAGE DESC = MODULE _TO_ADD CMC ¢ STORAGE); 
i, (STORAGE _DESC STOR_BEGIN_RST] NEQ 0) 
RETURN(FALSE); 


END; 
i aaa the tat CMC_LITERALS] NEQ 0) 


Waw ates 
SEAS 
MAMMA 


BEGIN 
STORAGE DESC = MODULE _TO_ADD CMC_LVT_ STORAGE]; 
HF eae ORAGE DESC STOR_BEGIN_RSTJ NEQ 0) 


WN —OOCONOUE WO 00 


fwt—-00@ 


FESSE 


tots 


aaee —_ ee ey er _ 
Ib-s¢ -1984 9:44 VAX-11 Bliss-32_V4.0-742 Page -| 
1 = ep-19 4 99 33 28 DISKSVMSMASTER:CPATCH. SRCJPATBLD.B32: 1" Bs 
3 1 eS it DST_RECRD : REF DST_RECORD, ! Pointer to where a fetched DST record Live ; 
; 128 3 BEGIN_DST_AT, ! ID of DST record where the DST for : 
3 1290 00 | the module we are to add begins. ; 
3 1291 010 DST_REC_ID, : ID we are passed back so that we can : 
3 7 3 011 ! later refer to DST records. ; 
3; 129 §1§ CURENT_LANGUAGE , ! Per-module source code Language indicator. : 
3 1294 01 T_PTR : REF NT_RECORD ! Pointer to NT records we build. : 
; 1295 014 STORAGE_DESC : REF VECT_STORE_DESC; ' We use the MC-contained descriptor of : 
: 1296 015 ! vector storage for all indicated symbols. . 
3; 1297 Big , 
3: 1298 01 14+ : 
3: 1299 Big ! Make sure that we have enough space to add this module before we begin. This 
; 1300 1 ! is necessary because it would be very difficult to ‘back out’ once we began, 
3 : 4! , y ! and we wouldn't Like to have modules half initialized. 
; 1 0§ 3 § Cn (PATSREPORT_FREE() = PATSMODULE_SIZE(.MODULE_TO_ADD)) GTR RST_AVAIL_SIZE) 
> 1305 024 144 
3; 1 “s] 30 5 ! We don't try to handle this one here because what is appropriate 
3 : 44 5 8 depends on when (why) the module was being initialized. 
3; 1309 028 RETURN(FALSE); 
3; 1310 029 
3 1311 030 '++ 
3 I3i¢ 031 ! Before allocating space for NT symbols, make sure that there will be some. 
3 13? O36 It makes no sense for a module to be added which has no name symbols. 
3 1315 S32 IF (.MODULE_TO_ADD CMC_NAMES) EQL 0) 
3; 1316 $032 THEN 
3 1317 036 RETURN(FALSE); 
3; 1318 3037 '+¢ 
; 1319 3038 ! See if NT storage has alrosdy been allocated. To do this, pick up the vector 
5 1350 3020 storage descriptor for the indicated NT records and see that it points to 0. 
: 1392 3041 STORAGE DESC = MODULE_TO_ADD CMC_NT_STORAGE); 
3; 132 Reg IF (.STORAGE_DESC CSTOR_BEGIN_RSTJ REQ 0) 
3: 1324 she THE 
; 1352 044 RETURN(FALSE); 
3 1 $$ 045 
3 1327 046 !++ ’ 
3; 1328 04 ! If we are going to allocate stroage for any SATs or LVTs, again check that 
3 } be none is already allocated. 
3 1 0 
9 0 
3; 1 0 
a. O84 
s 3 6 
31 0 
31 0 
31 0 
3 1 0 
3; 1 
3 1 
4 i | 
: 1 3 
| 
| 
| 
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1278687138 99:23:35 DISKSVMSMASTER: PATCH. SRCJPATBLD.B32: 1° Bs 
; 1345 B6e RETURN(FALSE); ‘ 
3 1 re 65 END; : 
3; 134 be8 : 
3 1348 06 '++ : 
3; 1349 bes ! At this point there is more to do only if the given MC pointer is to the : 
; 1350 BS ' *"global’ MC record. This is because there is no DST checking or language . 
; } 51 Bry ;_ve ification for the global MC case. ‘ 
3 1 38 ors IF (.LANGUAGE_ADDR NEQ 0) ; 
3 3 07 THEN : 
; 1355 074 BEGIN : 
3 1 2$ Br? '++ ; : 
; 1 2 Bre ; Processing for all DST-originated modules. ‘ 
3; 1359 078 ' First, pict up the supposed DST record ID of where the DST for this ; 
3 : rs 43 module begins. ; 
31 6¢ 081 BEGIN_DST_AT = .MODULE_TO_ADD CMC_DST_START); : 
3 136 et : 
: 1364 08 14+ ; ‘ 
3; 1365 sone ! Position the DST to the indicated record, and : 
3 1398 Bae ; ! make sure that it is of type MODULE. : 
; 1368 087 4 IF ((DST_RECRD = PATSPOSITON_DST( .BEGIN_DST_AT )) EQL 0) A 
3; 1369 088 3 THEN : 
3; 1370 089 4 BEGIN 3 
3 137) Sees 4 '++ : 
3 1 % 091 4 ! The supposed record does not exist. : 
3; 137 3038 4 es 3 
: 1374 093 4 RETURN(FALSE); ; 
3; 1375 $09¢ 4 END 3 
3: 1376 095 3 ELSE : 
; 1377 3096 ++ : ; 
3 1378 at The record is reachable. Make sure it is MODULE. : 
; 1380 099 4 IF (.DST_RECRD COSTR_TYPE] NEQ DSCS$K_DTYPE_MOD) : 
: et 100 3 THEN : 
3 7 8 101 4 BEGIN 3 
; 138 oe 4 $FAO_TT_OUT('!/DST MODULE misplaced.'); 3 
3 1384 103 4 RETURN(FALSE); 3 
3; 1385 104 END; 3 
3 1356 105 3 
3; 1387 196 tee : 
; 1388 19 ! Record type is OK. Check that we know which source language the. 3 
3; 1389 108 !' module was written in. If it's not BLISS or FORTRAN then treat it ; 
3 ' is 1% } as though it were MACRO. : 
: 1 36 111 IF ((CURENT_LANGUAGE = .DST_RECRDCDSTR_VALUEJ) NEQ BLISS_MODULE) AND : 
3 1a; \i¢ 4 6+ CURENT [LANGUAGE NEQ FORTRAN_MODULE) : 
: 1395 M48 CURENT_LANGUAGE = MARS_MODULE ; ‘ 
: 1397 116 te Re ar ; ies | i 
; 1398 11 ! Pass back the language code in which this module is written. This is : 
: 1399 118 ! needed because the caller of this routine doesn't get to look at the 3 
3 e's BY 4 ' DST record for this module. : 


N 6 
PATB 16-Sep-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Pe 9 
v04- 12-808- 1382 00:23:58 DISKSVMSMASTER:CPATCH.SRCIPATBLD.B32:1> b 
LANGUAGE ADDACOJ = .CURENT_LANGUAGE; 


1e¢ 
! Now that nothing can go wrong, go ahead and allocate all 
NT, and possibly all SAT and/or all LVT storage. 


PATSVS_INIT( | MODULE_TO_ADD [MC_NT STORAGE) 
-MODULE_TO_ABD CMC_NAMES], 
RST_NT_SIZE 


Y 


144 
NT storage is accessed via RST-pointers. 


MODULE_TO_ADD LMC_NT_STORAGE) = FALSE; 


lee 
! Likewise for SAT and LVT storage. Only here we don't mind if no storage will 
! be needed. 


if (.MODULE_TO_ADD CMC_STATICS] NEQ 0) 
THEN 


BEGIN 

PATSVS_INIT( | MODULE_TO_ADD CMC_SAT_STORAGE), 
-MODULE_T6_ADD CMC_STATICS), 

, RST_SAT SIZE 


le¢ 

SAT storage is not accessed via RST-pointers. 

MODULE. T0_ADD CMC_SAT_STORAGE] = TRUE; 
-MODULE’TO_ADD CMC_LITERALS] NEQ 0) 


WN "OS VONOUSWN OC VOONOULS WN —O0@O~ 


IF (¢ 
THEN 


BEGIN 

PATSVS_INIT( MODULE _TO_ADD CMC_LVT_STORAGE), 
-MODULE_TO_ADD CMC_LITERALSJ, 

, RST_LVT_SIZE 


Onl wnr—Oo0ean 


lee 

; LVT storage is not accessed via RST-pointers. 
| 
| 
} 


BRE 


MODULE_T0_ADD CMC_LVT_STORAGE] = TRUE; 


lee 
! Set the OWN variable which various other routines in this module work from, 
' to indicate which module we are currently building. This is the only place 
! where this variable gets set. 


CURRENT_MODULE = .MODULE_TO_ADD; 


'e¢ 
! Looks Like we're OK to go ahead and try to! add the indicated module. This is 
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a a a ee ee ee ee ee ee ee ee eee ee ee eee ee 
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ee a ae ee ee ee ee ee ee ee ee ee ee ee ee a ae ae ed 
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18.2 $ep-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Page 40. 
12-Sep-1984 99: :52:28 DISKSVMSMASTER: CPATCH. SRCJPATBLD.B32; 1 79 (8) 
; 1023 i aR. the only place in this routine where we return TRUE status. 
> 1461 186 RETURN (TRUE) 
: 1462 
: INFO#212 des 
; Null expression appears in value-required context 


17 0011 
69 6D 20 45 4C 55 44 4F 40 20 54 53 44 F $1 8611 -ASCII \!/DST MODULE misplaced.\ : 
2E 64 65 63 61 6C 70 73 0012 


7 

j 

} 

| 

| 

| 
.PSECT _PATSPLIT,NOWRT,NOEXE,0 | 
g P.AAJ: .BYTE 23 : | 
| 
j 

| 

| 


-PSECT _PATSCODE,NOWRT,2 
003C 00000 OK_TO_ADD: 


.WORD Save R2,R3,R4,R5 : 2950 
55 000000006 EF 9€ 00002 MOVAB. PATSVS_INIT, R : 

54 000000006 EF 9 00009 MOVAB PATSGL~RST_BEGN, R4 : 

000000006 EF 00 FB 00010 CALLS #0, PATSREPORT_FREE : 3022! 
5 50 pO 00017 MOVL : 
5 04 AC DO OOO1A MOVL § MODULE_TO_ADD, R3 F 

53 DD OOO1E PUSHL : 
000000006 EF 01 FB 00020 CALLS PATSHODULE _SIZE : 
50 0BB8 CO 9E 00027 MOVAB 30608 : 

50 52 D1 0002C CMPL a. : 

58 15 O00cF BLEQ 8 : | 

51 53 64 C1 00031 ADDL3 PATSGL_RST_BEGN, R3, R1 : 3034 
08 Al D3 90035 TSTL BcRT) ; 
52 1 0038 BEQL $ : 

50 1c AI Hf: 0003A MOVAB 28(R1), STORAGE _DESC > 3041 

01 AO BS OOO3E TSTW  1(STORAGE_DESC : 3042 
49 12 00041 BNEQ © 3$ ; 

31 Al =DS 00043 TSTL  49(R1) : 3050 
09 1 0046 BEQL © 1$ : 

50 23 Al s«9E (0004 MOVAB 35(R1), STORAGE _DESC : 3053 

01 ad B5 0004C TSTW 1 (STORAGE_DESC) > 3054 
3B 12 OO04F BNEQ 3 : 

35 Al D5 00051 18 TSTL  53¢R1) : 3058 
09 1 0094 BEQL 23 : 

50 2a Al 9 4 MOVAB 42(R1), STORAGE_DESC : 3061 | 

01 AO B O03A TSTw 30s FORAGE E_DESC)~ : 3062. 

2D 12 00050 BNEG © 3$ : 

08 AC D5 0005F 28: TSTL | LANGUAGE_ADDR : 3072 | 
62 BEQL 6$ 3 

50 04 Al 00 00064 MOVL 4(R1), BEGIN. DST_AT : 3081 

50 DD 00068 PUSHL BEGIN, DST : 3087 | 

000000006 EE gi F A CALLS #1, PRTSPOSI TON. DST : | 

2 0 D 1 MOVL RO, DST_RECRD : | 

if; 1 4 BEQL 3$ ; 

BC BF 01 A2 91 00076 CMPB (DST_RECRD), #188 : 3099 | 

11 13 0007B BEQL 6-48 : 

7E D4 00070 CLRL = = (SP) : 3102 | 


; Routine Size: 


50 


50 


50 
50 


50 


250 bytes, 


00000000" 
00000000G_ EF 


i. 


: 
ea. 
: 


08 BC 
53 

08 A0 

1c) OA 

65 0 
53 64 
1¢ = =6A0 

31 OA 

1 
OA 
31. AO 

23.C~«‘édA 

65 0 
53 64 

23 0 01 
5 64 

35 . 
06 
35 Ad 
2A =AD 
65 03 

53 64 

2A =AO 01 
00000000' fF 53 
0 01 
50 

Routine Base: _PATSCODE 


+ 
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COVOCCTC ON NOOO -GCM OO NOVTO-VC OO "OVOICUIT9O-90-9090—"0 
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oOo FFFOOCO-O8 70 OWU 0-0 TO OWS -O 790-9 O fw Oo" 


ow 


7$: 


so 
wr 


mw 


9 
9 


Be 99:8 


PUSHAB 
CALLS 


9:44 VA 
2:28 DI 


i 2.V4.0-742 


P,AAJ 
ae, PATSFAO_OUT 


(DST_RECRD), CURENT_LANGUAGE 
RENT_LANGUAGE, #2 


URENT LANGUAGE, # 


CURENT_LANGUAGE 
CURENT-LANGUAGE, @LANGUAGE_ADDR 


e 
PATSGL_RST_BEGN, R3, RO 


— 


IT 
GN, R3, RO 


anew 0Bvo 
Oo *M ODPYr = > 


35 (RO) 

#3, PATSVS_INIT 

PATSGL RST_BEGN, R3, RO 
#1 TRO) 


PATSGL_RST_BEGN, R3, RO 
53(RO) 


eg 

53(RO) 

42 (RO) 

#3, PATSVS_INIT 

PATSG RST_BEGN, R3, RO 


R3, CURRENT_MODULE 
#1, RO 


RO 


Be Se Se Oe Be Be Be Be Be Oe Be Se Be Se Be Be Se Be Se Se Se Se Se Se Se Se Se Se Se Se Fe Fe Se Fe Se Se Se Se Be 
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SKSVMSMASTER: CPATCH.SRCJPATBLD.B32; 1 (8) | 


DOF_RECRD : REF DST_RECORD; Pointer to the piven DST rec 


ord 
which we use only for ‘standard’ DST 
structures. 


dD 7 
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04 12280871382 99 35 28 DISKSVMSMASTER CPATCH. SRCJPATBLD.B32: 1° (9) 
: be ¢ ! ¢ } ROUTINE ADD_NT( DST_RECRD, UP_SCOPE ) = 
: 1466 184 1 !+4 
; 146 185 1. ! Functional Description: 
: 1oo8 1 § 1! 
3 14 1 1! Add a symbol to the name table (NT). 
3; 1470 1 : 1! 
3; 1471 1 1 ' Formal Parameters: 
; 1446 190 1! DST_RECRD -a pointer to the DST record that corresponds 
3; 147 191 1! to the symbol anny added. 
3 14746 135 1! UP_SCOPE “an RST-pointer to the NT or MC record that 
3; 1475 195 733 corresponds to the symbol that is scope-wise 
: 1or8 194 1! above the symbol we are to add. 
3; 147 195 1! 
3 rt 138 : Implicit Inputs: 
> 1480 198 1! The OWN, CURRENT_MODULE, has been set up to | 
; 1481 199 1! indicate the MC pointer to the module we are 
; re soy : currently adding. 
: 1484 $06 1! We call PATSDST_VALUE with a DST_RECRD pointer - NOT a 
; 1485 $ 2:3 so-called DST_REC_ID. This works, for now, because these 
3: 1486 06 1! two concepts are still the same. If/when this is no longer 
: 1487 205 1! true, we must change it and all calls to it so that only one 
; ions soe ' way of specifying a DST record is used. 
: 1490 208 1 | Implicit Outputs: 
: 1491 209 1! 
3; 149 210 1! None. 
3; 149 $1) 1! 
3 1494 1 1 ! Routine Value: 
3; 1495 213 1! 
3; 1496 3518 1} FALSE, if some real error occurs, , 
3; 1497 e139 73 an NT_PTR to where we did add or find it, otherwise. 
3; 1498 216 1! 
3 1499 217 1°! Side Effects: 
: 1500 218 1! 
: 1501 vy 1: The NT gets updated to reflect the addition of the new 
3 1208 220 1! symbol if 1) PATSDST_VALUE knows how to evaluate the 
3; 150 221 1! given DST, and 2) We have not olredy built an NT 
3 1504 7) i. record for this symbol (because it also came in as a GSD). 
; 1505 223 1 !-- 
3; 1506 224 (1 
18h sj g onc 
: 1509 27. 2 LABEL 
z 1510 8 NEXT_DUP_LOOP; 
aE 0 5 map | 
; 1318 $34 UP_SCOPE : REF MC_RECORD, This is an example of a case where we woul | 
: 1514 3 in trouble if pointers into the MC were no 
3; 1515 3 same as those into the NT because here we 
: 1218 $e don't yet know to which structure UP_SCOPE | 
; 1518 
3; 1519 
3; 1520 


Roronopononoery 
Www 
oOnoOuw 


| 
; 


} 


v 
ie 
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16-s¢ -1984 00:59:44 VAX-11 Bliss<-32 V4.0-742 Page 43. 
1 ~3e 71382 90:23:58 DISKSVMSMASTER: LPATCH. SRCJPATBLD.B32: 1° (9). 
LOCAL 
LOOKUP_STATUS, SUCCESS CODE FROM PATSDST_VALUE 
NT_HASA : UR Hash index used to access NT chains. 
NEQ_NT_PTR : REF N Pointer to NT record where the new 
symbol ets inserted. 

NT_PTR : REF NT_RE NT pointer used to scan along chains. 
DST_NAME_CS : CS_P Pointer to where the symbol name CS 

is in the DST record. 

The value of the symbol we are to add. 


SYMBL_VALUE; 
'e¢ 


| 
! There is no point in adding an NT record for a symbol | 
we can't evaluate. 


| 
HF gg OUP STATS = PATSDST_VALUE( .DST_RECRD, SYMBL_VALUE)) EQL 0) ' +4038 | 
BEGIN | 
RETURN(FALSE); | 

END; 


'+¢ 
! The only difference in building an NT record from either of the three classes 
! of DST records we distinguish, (type zero, SRM types, and ‘the rest'), | 
} is the calculation of where in the record the name counted string is found. 
: 
' 


i This code relies on the fact that the TYPE fields are in the same place in 
the three types of DST records. 


DST_NAME_CS = DST_RECRD CDSTR_NAME); 


Pees 
OWONOVUESWN (OOOO UNEWN "OO ONAUE WN "OO DOONOULS WN 


le 
! Add the symbol to the name table. Now we steely determine whether to add it 
! onto the end of an existing hash chain, or whether to begin a new one. 


| 

| 

ies | 
HASH = PATSNT_HASH_FCN( .DST_NAME_CS ); 

| 

| 

| 


POIPOPOPIPOPIPIPIPINININININININIPPIPYIPIPIPYPIPPIPUPIPUPININPIPYNPNPYPD 


SENN NP AAA AAAAA AMIN BS BP PPP PEE EW 


See SS SSR AS SONOS Ooo WA Fah O00 GOA PU OO D009 OPO 


AAA 


e-Cint rR = .PATSGL_NT_HASH Cont RSH) “NEG 0) 
een 
' There are already some symbols that hash to this same value. This 
! means that we simply Link the new record onto the end of this chain. 
WHILE .NT_PTR CNT_FORWARD] NEQ 0 ) 


'e¢ 
Skip along to the end of the chain. 


NT_PTR = .NT_PTR CNT_FORWARD]; 


DAA VIIA & & 


Sees 


Arun 


MOPOPOPOPOPoPoPonofnory 


Ker: < 
0000090009 0000 00 00 08 SI INI II 


END 
BEGIN 
le 


' To build a new chain, we paty need to know where in the hash vector 
! to Link it on. Make this hash-vector address look like a pointer 

' to an NT record so that we can fill in NT_FORWARD below thereby filling 
} in the hash vector. 


ELSE 


em ee ee ee ee ee a a ee ee a ee ae ed ed dd ae ed ed ed 
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16-Sep-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 Pp 44 
1o-808-} 382 90:23:58 DISKSVMSMASTER=CPATCH.SRCIPATBLD.B32:1" (9) | 


WT PTR = PATSGL_NT_HASH C.NT_HASH] = .PATSGL_RST_BEGN; 
lee 


' Allocate space for the new NT record and fill in the fixed fields. This must 
! go without hitch or we give up. Note that the NT record we build is the same 


wr 


'e¢ 
! Moving the name could cause problems if we change the data representation. 
! Note that here we move both the name-size count as well as the name itself. 


: no matter what type o T record we build it from. 

; if 5 ee ST Pe = PATSVS_GET( CURRENT_MODULE CMC_NT_STORAGE], RST_NT_OVERHEAD + .DST_NAME_CS[0])) 
is 

9 le4 

! We ran out of space. This should never happen because we supposedly 

23) } knew how much vector storage to allocate before we began adding any NTs. 
538 RETURN(FALSE); 
595 NEW_NT_PTR CNT_UP acon? = ,UP_SCOPE; 

ane NEW_NT_PTR CNT_DST_ PTR] = .DST-RECRD; 

397 NEWINT-PTR CNT-TYPE] = .DST_RECRD COSTR_TYPE); 
599 
600 
60 
60 
60 


CHSMOVE( .DST_NAME_CSCO] +1, .DST_NAME_CS, NEW_NT_PTR CNT_NAME_CS) ); 


'e4 

! Add this new NT record to the name table by pnt ag up the hash-chain Links. 
! The new record points back to a previous NT record, OR, it points 

i back to the hash vector itself. In either case there is no NT record FORWARD 
! of the new record. 

NEW_NT_PTR CNT_BACKWARD] = .NT_PTR; 

NEW_NT_PTR CNT_FORWARD) = 0; 


'e¢ 

! The following writes into the NT_FORWARD field of a previous NT record, OR, 
! it writes the first chain-pointer into the hash chain itself. This 

! is why NT_FORWARD has to be the first field of the NT_FIELD_SET. 


lee 
NT_PTR CNT_FORWARD] = .NEW_NT_PTR; 


!ee 
: ALL went ok so we return an RST-pointer to where this symbol got added. 


RETURN( .NEWNT_PTR) ; 
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VP wn— 
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O3FC 00000 ADD_NT: .WORD Save R2,R3,R4,R5,R6,R7,RB,R9 ; 3182 | 

59 000000006 H 000 MOV PATS$GL_RST.BEGN, R9 ; | 
SE C2 0000 SUBL2 #4, SP ; | 
DD 0000C PUSHL ; 3253 | 


ws } 
rs 
PATBLD bes Sep 4 9:44 VAX-11 Bliss-32 V4.0-742 e 45. 
v04=000 14-Sep 71982 99: 33: :28 DISKSVMSMASTER: CPATCH.SRCJPATBLD.B32; 1 Pa9 (9) | 
53 04 AC 00 0000 MOVL  DST_RECRD, R3 ; ; 
DD 0001 PUSHL R : ; 
000000006 EF F 1 CALLS @# PATSDST VALUE : F 
D 18 TSTL LOOKUP _STATOS : | ; 
4 1 1D BEQL «ss : : 
52 07 a3 9€ 0001 MOVAB 7(R3), DST_NAME_CS ; 3267 3 
52 0p PUSHL DST_NAME_CS : 3973 | ; 
000000006 FF 1 FB CALLS #1, ~PATSAT_H : | : 
0 000000006FF 49 Hi 02C MOVAW  @PATSGL_NT “HASHENT™ HASH], RO + 3274 | ; 
6 6 ¢ 00 MOVZWL (RO), NT_PTR : ; 
0D 13 00037 BEQL 28 ; : 
50 56 69 Ci 00 9 1$ ADDL3 PATS$GL_RST_BEGN, NT_PTR, RO : 3281. ; 
60 8 D TSTW (RO) : ; 
09 13 0003F BEQL 3$ : 
56 60 30 00041 MOVZWL (RO), NT_PTR + 3286 
F311 00044 BRB 1$ : 
be 50 69 cs 00046 33 SUBL3. PATSGL_RST_BEGN, A NT_PTR + 3296 
7 62 9A Q004A 3$ MOVZBL (DST_NAME_CS), =(SPS ; 3304 | 
6E 0D CO 00040 ADDL : 
L L N, CURRENT_MODULE, ; 
50 00000000" EF ee 69 ci 90050 ADDL 3 PAT$GL_RST_BEGN, CURRENT_MODULE, RO 
000000006 EF 98 FB 00058 CALLS #2, PATSVS_GET ; 
e 5 00 0062 MOVL RO, NEW_NT-PTR : 
2c 13 0006 BEQL «84 : 3305 
57 58 69 C1 00067 ADDL3 PATSGL RST BEGN, NEW_NT_PTR, R7 : 3313 
08 A? 08 ag BO 00068 MOVW P_SCOPE, B(R 3 
04 A? 53 00 00070 MOVL R > 3314 
02 A? 01 A3 90 00074 MOVB Nast 2(R7) > 3315 
50 $2 9A 00079 MOVZBL (DST_NAME_CS), RO : 3321 
50 D6 0007C INCL R ; 
Oc A? 62 50 (28 00075 MOVC3 RO, (DST NAME CS), 12(R7) ; 
OA A? 56 80 9008 MOVW  NT_PTR, TOCR7 ; 3329 
67 B4 00087 CLRW ss (R??) : 3330 
56 69 CO 00089 ADDL2 PATSGL RST _BEGN, R6 : 3337 
66 58 BO 0008C MOVW NEW_NT-P (R65 : 
50 58 DO O008F MOVL § NEW"NT -PIR. RO : 3342 
04 64 RET 3 
50 04 00093 4$ CLRL = RO : 3343 
04 00095 RET ; 
; Routine Size: 150 bytes, Routine Base: _PATSCODE + 05A2 


H 7 
16-Sep-1984 99:39:6 Liss-32 V4.0-742 
14-Sep-1984 :52:2 MASTER: CPATCH.SRCJPATBLD.B32; 


os 
o 


“$ 
“$ 


; 16 7 re ROUTINE ADD_SAT( NT_PTR, LOWER, UPPER ) = 

: 16 § 4g | ite 

3 Mb , r : } Functional Description: 

: 19 § a3 } Build the SAT record to correspond to an NT record. 

: ! 
; 1634 24 1 ! Formal Parameters: 
3; 16355 26 1! T_PTR “An RST-pointer to the NT record for this symbol. 
; 16 55 1! LOQER -The lower-bound value which is bound to 

3; 1637 54 1! this symbol. 

; 1638 2? : 7 UPPER -The upper-bound value which is bound to 

§ 1278 2$ } } this symbol. 
: 1641 338 Implicit Inputs: | 
: 1803 360 13 Symbols marked NT_IS_GLOBAL have already been added 

3 1644 361 1! to the SAT so we don’t do it ogetn. We do update 

3; 1645 306 1! SAT information therein, though, once we have found 

3 1208 307 : } out where we added it the Last time. 

: 1648 365 1! The OWN, CURRENT_MODULE, has been set up to 

3: 1649 366 1! indicate the MC pointer to the module we are 

; 1650 367 1! currently adding. Storage allocation works : 

3 1921 $08 : from the vector storage descriptors stored therein. 

F 1688 370 implicit Outputs: | 
i 1002 38 ji men | 
° ° | 
3 \oef $e : Routine Value: 

; 1659 376 1! 0. if the SAT record was not built, . | 
3 1999 Ae : a SAT-pointer to where it was build, otherwise. | 
; 1006 ta ' Side Effects: 
> 1664 381 1! The SAT gets updated to reflect the addition of the new 
1866 385 | | ny | 
> 1667 3384 7: The NT bit, NT_IS_ BOUNDED is set to TRUE or FALSE, | 
; 1668 $2 : depending on whether the giver: UPPER_BOUND is 0 or not. | 
: 1670 387 1 

3: 1671 8 BEGIN 

3 1976 389 | 
3: 167 90 MAP 
s 1er 4 NT_PTR : REF NT_RECORD; 

; 1676 38 LOCAL 

: 167 94 SAT_PTR : REF SAT_RECORD; 

; 1678 95 

: 167 38 SAT_PTR = 0; 

eb . 

: 108 3 i ask for space for the fixed-size record. This should not fail because 

: 168 400 ! we supposedly knew how much space we wanted and allocated it all 


is 


7 | 
1b-se 1984 00:59:44 VAX=11 Bliss-32_ V4.0-742 P 47 
1 ~Sep-19 4 99:33:38 DISKSVMSMASTER: CPATCH.SRCIJPATBLD.B32;1~ (10) 


: : : r 1 : before we got here. | : 
; 12 rt § ioe = PATSVS_GET(CURRENT_MODULE CMC_SAT_STORAGE], RST_SAT_SIZE)) EQL 0) : 
3; 1 405 BesiN ° 
; 1689 ry FAO_TT_OUT('!/sat overflow’); ! Don't allow the SAT to overflow. : 
; 1690 40 RETURN(FALSE); : 
; 1691 rh ND; $ 
; 1696 40 : 
: 169 410 '++ : 
: 109% ol} : Otherwise go ahead and fill in the new record or update the old one. : 
; 1696 418 SAT_PTR SATB) = LOWER; : 
: 169 414 SAT_PTR C[SAT_UB) = UPPER; F 
; 1698 415 2 SATIPTR CSATINT_PTRI = .NT_PTR; | ; 
: 1699 ti¢ 3 
; 1700 41 '++ : 
: 1701 418 ! Mark all NTs _BOUNDED or not depending on whether the (new) upper bound is 0 H 
; 1708 419 ! or not. : 
; 170 420 leo : 
3 1704 421 IF (.UPPER NEQ 0) 3 
3 1705 4 ; THE $ 
: 1706 4 NT_PTR CNT_IS_BOUNDED] = TRUE; : 
3; 1707 424 3 
3; 1708 425 '+ ; 
3 1709 426 ! Return a pointer to where the SAT record was built. Usually this is only : 
3; 1710 427 ' tested for non-zero, PATSADD_MODULE keeps a stack of SAT record pointers 3 
3; 1711 428 ! for ROUTINEs, though. so it Can go back and put in the UB value since we : 
3 ar 429 ! don't get that until end-of-routine. F 
3 171 430 ! 3 
3 1714 431 3 
3 1715 432 3 
> INFO#212 L1:3406 ; 
3; Null expression appears in value-required context 


.PSECT _PATSPLIT,NOWRT ,NOEXE ,0 


QF 00130 P.AAK: BYTE 14 
77 6F 6C 66 72 65 76 GF 20 74 61 73 2F 21 00131 “ASCII \!/sat overflow\ ; 


| 

RETURN(.SAT_PTR); 
END; | 
-PSECT _PATSCODE.NOWRT,2 

| 


000C 00000 ADD_SAT:.WORD Save R2,R3 > 3344 | 
53 000000006 EF 9€ 0000 MOVAB PATS$GL_RST_BEGN, R3 ; | 
2 D4 0000 CLRL = SAT_PTR : 33% 
A DD 00008 PUSH : 3403 
50 00000000" EF 63 C1 900 ADDL PATSGL_RST_BEGN, CURRENT_MODULE, RO ; 
23. AO 9F 0001 PUSHAB 35(RO) ; 
000000006 EE 08 f 18 CALLS 2, PATSVS_GET ; 
2 9 1F mov. Rd. SAT_PTR 3 
7E D4 z CLR -(SP) ; 3406 
00000000" EF 9F PUSHAB P.AAK ; 


VAX-11 Bliss-32_ V4.0-742 a 


18-50 Sep-1 
1 300-138 99: 33: a DISKSVMSMASTER: CPATCH. SRCJPATBLD.B32; pqee 6 | 
000000006 _ EF 02 FB CALLS , PATSFAO_OUT ; 
C } BRB + 3407 
02 A 8 AC 1$: MOVa LOWER 2¢§at. pTR? + 3413 
6 4 at ®@ A MOVW PTR, TR) + 3415 
on ae: ye es 
50 4 A 3 ¢7 4 ADDL3 PATSGL_RST_BEGN, NT_PTR, RO + 3423 
8 Ab 80 BF bs 4 seek #128 “Be 0 : me 
5 2 0 sb 2 2$: MOVL SAT_PTR + 3431 
50 D4 00051 35: CLRL —_ RO + 3432 
4 ied RET F} 


; Routine Size: 84 bytes, Routine Base: _PATSCODE + 0638 
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ROUTINE ADD_LVT( NT_PTR, LVT_VAL ) = 


i 


MEWN OO CONAOULSWN-O0O~ 
Vw 


lee 
Functional Description: 


Build the LVT record to correspond to the 
symbol we have just built the indicated NT 
record for. 


! Ask for space for the fixed-size record. This should not fail because we 
' supposedly knew how much space we wanted and allocated it all before 
we got here. 


3 1 1 

3 iy 1 

3; 17 1 

3 17 1 

3 17 1! 

3 17 1! 

3; Wf 1! 

3 17 1! 

3; 17 . 

3 Vy ! ; Formal Parameters: 

3 17 1 | NT_PTR “An RST-pointer to the NT record for this symbol. 
: 17 1! LVT_VAL “The literal value which is bound to 
3 4 : this symbol. 

3 17 1 ! Implicit Inputs: 

3 17 449 1! 

3 17 450 1! The OWN, CURRENT_MODULE, has been set up to 

3: 173 451 1! indicate the MC pointer to the module we are 

3 1736 126 1! currently adding. Storage allocation works 

; et se? ! from the vector storage descriptors stored therein. 
5 1335 455 1! Implicit Outputs: 

3; 1740 rt 1! 

3 1741 457 1! None. 

3 1s 458 1! 

3: 174 459 1 ! Routine Value: 

: 1744 460 1! 

3 1745 3461 1! TRUE, if all goes OK, 

> 1746 3466 1} FALSE, otherwise. 

3 1747 4635 1! 

3 178 3464 ! Side Effects: 

; 1750 : 1; The LVT gets updated to reflect the addition of the new 
3; 1751 1! symbol. 

: 1736 1 !e- 

3; 175 469 1 

3: 1754 BEGIN 

; 1755 7 

: 1738 MAP 

: 175 NT_PTR : REF NT_RECORD; 

3; 1758 

3; 1759 LOCAL 

3; 1760 LVT_PTR : REF LVT_RECORD; 

3; 1761 

: 1766 '¢¢ 

; 176 

: 1764 

Me 

3: 1767 4 IF ((LVI_PTR = PATSVS_GET(CURRENT_MODULECMC_LVT_STORAGE], RST_LVT_SIZE)) 
; 1768 EQL 0 ) 

3 1798 

3; 1770 eesin 

3; 1771 FAO_TT_OUT('!/lvt overflow’); ! Don't allow the LVT to overflow. 
: 1778 RETURN (FALSE); 


] 


| 
| 


Sep-1 VAX*11 Bliss-32_V4.0-742 
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: 1774 490 

: 1775 491 lee 

: ere 136 i 0 Otherwise go ahead and fill in the new record. 
: 1778 494 5 LvT_pTR fivt. VALUE] _= .LVT_VAL; 

3 Ag aa? LVT-PTR CLVT_NT_PTR] = .NT_PTR; 

: 1781 49 RETURN( TRUE); 

3; 1782 98 : 

s INFO#212 , 23487 

3; Null expression appears in value-required context 


-PSECT _PATSPLIT,NOWRT,NOEXE ,0 


QE QO13F P.AAL: .BYTE 14 F 
77 6F 6C 66 72 65 76 6F 20 74 76 6C 2F 21 00140 eASCII \!/lvt overflow\ : 


-PSECT _PATSCODE,NOWRT,2 


0004 00000 ADD_LVT:.WORD Save R2 : 3433 
06 DD 00002 PUSHL # : 3483 
50 00000000" EF 000000906 EF 1 00004 ADDL3 PATSGL_RST_BEGN, CURRENT_MODULE, RO : 
2k AO 9F 00010 PUSHAB ; 
000000006 EF 02 FB 00013 CALLS #2, PATSVS GET ; 
52 50 BO 0001, MOVL RO. LVT_PTR : 
11 12 0001D BNEQ =-'1$ : 3484 
7E D4 OOOTF CLRL -(SP) 3; 3487 
00000000" EF 9F 00021 PUSHAB P.AAL ; 
000000006 EF 02 FB 00027 CALLS #2, PATSFAO_OUT ; 
OD 11 0002E BRB : 3488 
02 ag 08 AC 4 0030 1$: MOVL LVT_VAL, Rh PTR) > 3494 
6 04 AC BO 00035 ROU = NT_PTR,“(LVT_PTR) : 3495 
50 01 00 00039 MOVL = #17 : 3497 
04 0003C RET : 
50 D4 0003 28: CLRL-__—RO : 3498 
04 0003F RET 3 


3; Routine Size: 64 bytes, Routine Base: _PATSCODE + 068C 


mM 7 
16-Sep-1984 00:59:44 VAX-11 Bliss-32 V4.0-742 P 51 
102 388-138e 99:33:38 DISKSVMSMASTER: CPATCH, SRCJPATBLD.B32;1~ (12) 


NOVALUE 
i Side Effects: 
BOUNDS_DESC is an output parameter. (see above) 


; 7B 9 GLOBAL ROUTINE PATS$SGET_BOUNDS( DESCRIP_BLOCK, BOUNDS_DESC ) : NOVALUE = 
Be 'e¢ | 
44 Functional Description: 
89 i Deduce the virtual address of the bog ionic » and the Length (in bytes), 
90 ! of the indicated array. i.e. Given the SRM-defined ‘array descriptor', 
91 0 ' ereevce the corresponding PATCH/RST-defined ‘array bounds descriptor’. 
4 8 } he latter is defined in PATRST.REQ 
3% 9 Formal Parameters: 
96 1 : DESCRIP_BLOCK address of SRM array descriptor 
97 1 ' BOUNDS _BESC “address of the ARRAY_BNDS_DESC we are 
: } ce *7tli ta". 
s : Implicit Inputs: 
4 1 The SRM-defined notion of ‘array descriptor’. 
‘¢4 1 Implicit Outputs: 
06 None. 
! Routine Value: 
1 
1 
' 
' 
t 
t 


DESCRIP_BLOCK : REF BLOCK (,BYTE) 
BOUNDS _BESC : REF ARRAY_BNDS_DESC; 
LOCAL 

SPAN_BLOCK : REF VECTOR, 
NUM_ARRAY_ELEMS; 


lee 

! Check that this is a valid grray descriptor. PATCH handles FORTRAN'S 
: _CLASS_A (general array) and _CLASS_S (type CHARACTER). 

if _(-DESCRIP_BLOCK CDSC$B_CLASS) EQL DSCS$K_CLASS_A) 


BEGIN 
lee 
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5 5 i General array descriptors. Check consistency and return if 
3 : something is wrong. 
38 5 IF ((NOT .DESCRIP_BLOCK CDSC$V_FL_COLUMN)) OR 
39 5 (NOT .DESCRIP_BLOCK CDOSCSV_FL_COEFFJ) OR 
840 5 (NOT .DESCRIP_BLOCK COSC$V_FL_BOUNDS)) OR 


Ba Be Be Be Oe Se Be Be Se Se Be Se BH Ss Oe FF Se BH TH He Se Be Se Be SE Se Ge SHS See Se Ge Se Se BE Se Se SH Se Se Se Se Se Se Sess Fe SH ae ee te Se Sete Seas 


N? | 
PATBLD 16-Sep-1984 00:59:44  VAX-11 BLliss-32_V4.0-742 Page 52) 
v04-000 1e28ee-13Re 99:83:38 DIRKSUMGMASTERSCPATON. SACIPATBLD.B3204°° (155 
3; 1841 : § ; (.DESCRIP_BLOCK CDSC$B_DIMCT] LEQ 0)) : 
s 3 § THEN : 
; 184 2 8 4 BEGIN 3 
3 1844 4 SIGNAL( PATS_INVARRDSC ); ; 
>; 1845 560 4 RETURN; 3 
3 ieee 561 ; 3 
3; 1847 206 ; 
>; 1848 56 144 3 
3 1849 564 ' Calculate the required values for general arrays. The length of the : 
; 1850 565 ! array is simply tallied up by multiplying the total number of elements | : 
; 1851 208 } by each element size. The total number of elements is the product of 3 
; 1326 26/ : the number of elements in each dimension. | : 
3 1854 569 SPAN_BLOCK = DESCRIP_BLOCK COS cSL M1): 3 
; 1855 570 NUM_ARRAY_ELEMS = .SPAN BLOCK(O]; 3 
; 1328 $25) 4 inch COUNT FROM 1 TO (.BESCRIP_BLOCK CDSC$B_DIMCT) -1 ) | : 
; 1858 3578 NUM_ARRAY_ELEMS = .NUM_ARRAY_ELEMS * .SPAN_BLOCK[.COUNT); ; 
3; 1859 574 3 
; 1860 3575 3 ++ : ; 
3 190) 3258 : Calculate the Length of the array, in bytes, and return this information. : 
H 1868 $258 3 BOUNDS_DESC CARRAY_LENGTH] = .NUM_ARRAY_ELEMS * .DESCRIP_BLOCK CDSCS$W_LENGTH); ‘ 
; 1865 3580 ; ++ ; ; 
3; 1866 3581 ! End of special processing for _CLASS_A. 3 
: 1867 $256 lon 3 
3 1866 358 END 3 
: 1869 3584 2 ELSE | : 
: 1870 585 IF (.DESCRIP_BLOCKCDSC$B_CLASS] EQL DSC$K_CLASS_S) : 
3; 1871 $258 ¢ THEN ‘ 
3 1376 587 BEGIN 3 
3; 187 3588 3 '++ : : : : 
3 Ht $25) ; Class S is for static strings. Return the needed information. : 
3; 1876 3591 3 BOUNDS_DESCCARRAY_LENGTH] = .DESCRIP_BLOCKCDSC$W_LENGTHI; ; 
3; 1877 $208 3 ND 3 
3; 1878 $28, ELSE 3 
3; 1879 594 BEGIN 3 
3; 1880 3595 '+¢ : 
3: 1881 3596 ! No other classes currently supported. 3 
3; 1882 3597 leu 3 
3; 1883 3598 SIGNAL (PAT$_INVARRDSC); 3 
3; 1884 599 RETURN; F 
3; 1885 600 END; : 
3 1886 601 3 
3; 1887 60 '++ a F 
3; 1888 60 ' Return the required information common to all types. Currently, this is 3 
3 H+ oe } only the address where the data begins. | : 
: 1891 305 BOUNDS_DESC CARRAY_ADDRESS) = .DESCRIP_BLOCK CDSCSA_POINTER); | : 
; 1893 3608 END; : 
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_PATSCODE + 06CC 


105 bytes, Routine Base: 


; Routine Size: 


ee 9 bese ~po0- 138% 9: 23:46 VAX=11 Bliss=-32 V4.0-742 Pove te 


,onenes/CPY-Min: 26326 
ry Used: 284 pages 
— ation Complete 


| 

14-Sep-19 DISKSVMSMASTER: CPATCH.SRCJPATBLD.B32;1 | 
; 1895 3608 1 END 'End of module | ; 
: 1896 610 0 ELUDOM é 
| ; 
-EXTRN LIBSSIGNAL | : 
; PSECT SUMMARY | : 
: Name Bytes Attributes | ; 
: _PATSOWN 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
3 “PATSCODE 1845 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) . 
; =PATSPLIT 334 NOVEC, *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) ‘ 
j e 
j . 
3 Library Statistics 3 
Se eee ee a eee ee ee ae Syabe(s socenees Pages Processing : 
3 File Total Loaded Percent Mapped Time | : 
: _$255$DUA28: CSYSLIBILIB.L32;1 18619 26 0 1000 00:01.7 | : 
| 
; Information: 11 | ; 
; Warnings: 0 : 
; Errors: 0 : 
> 
$ 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /VARIANT:1/LIS=LIS$:PATBLD/OBJ=0BJ$:PATBLD MSRC$:°ATBLD/UPDATE=(ENH$:PATBLD) | : 
: Size: 1845 code + 350 data bytes | : 
un Time 00:48.9 - 
ke Time: Oe: eR-9 3 
Lines/CPU Min: 4430 | 3 


030 AH-BT13A-SE T CORPORATION 
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